關(guān)于ini讀取錯(cuò)誤問題？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061224190355128.html
Filename:=ExtractFilePath(Paramstr(0))+'SET.INI'; ?
? ?
? ? ? ? ? ? Sid:=ini.ReadString('SETCONFIG','SERVERUSER','sa'); ?
? ? ? ? ? ? Sname:=ini.ReadString('SETCONFIG','SERVERNAME','yyjys'); ?
? ? ? ? ? ? SDname:=ini.ReadString('SETCONFIG','SERVERDBNAME','sims'); ?
? ? ? ? ? ? ini.Free; ?
? ?
? 會(huì)出現(xiàn)一個(gè)內(nèi)存錯(cuò)誤對話框？

ini:=TRegIniFile.Create; ? //你做了嗎?

你回復(fù)之前，我已經(jīng)找到錯(cuò)誤拉。 ?
? try ?
? ? ? ? ? ? ? ? ? ? AdoTable1.Active:=true; ?
? ? ? ? ? ? ? ? ? ? except ?
? ? ? ? ? ? ? ? ? ? begin ?
? ? ? ? ? ? ? ? ? ? ? ? MessageBox(handle,'數(shù)據(jù)庫連接有問題請與管理員聯(lián)系！','錯(cuò)誤',MB_ok ? or ? MB_ICONERROR); ?
? ? ? ? ? ? ? ? ? ? ? ? application.Terminate; ?
? ? ? ? ? ? ? ? ? ? end; ?
? ? ? ? ? ? ? ? ? ? end; ?
? 在無法連接時(shí)候 ?
? 這個(gè)代碼為什么不執(zhí)行application.terminate呢？？？

gz

var ?
? ? ? tempIni: ? TIniFile; ?
? begin ?
? ? ? tempIni ? :=TIniFile.Create(extractfilepath(ParamStr(0))+'sys.ini'); ?
? ? ? SQLServerName ? := ? tempIni.ReadString('SYSTEM', ? 'SERVER', ? ''); ?
? ? ? SQLDBName ? := ? tempIni.ReadString('SYSTEM', ? 'DBNAME', ? ''); ?
? ? ? Password ? := ? ? tempIni.ReadString('SYSTEM', ? 'Password',''); ?
? ? ? tempIni.Free; ?
? ?
? ? ? ConnString ? ? :='Provider=SQLOLEDB.1;Password='+password ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? +';Persist ? Security ? Info=True;User ? ID=sa;Initial ? Catalog=' ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? +SQLDBName+';Data ? Source='+SQLServerName; ?
? ? ? try ?
? ? ? ? ? ? sysdm.DBConnect.connected ? := ? false; ?
? ? ? ? ? ? sysdm.DBConnect.ConnectionString ? := ? ConnString; ?
? ? ? ? ? ? sysdm.DBConnect.connected ? := ? true; ?
? ? ? except ?
? ? ? ? ? ? on ? e:EoleException ? do ? ? ? ? ?
? ? ? ? ? ? begin ?
? ? ? ? ? ? ? ? if ? e.Errorcode ? = ? -2147217843 ? then ?
? ? ? ? ? ? ? ? ? ? begin ?
? ? ? ? ? ? ? ? ? ? ? ? MsShow('數(shù)據(jù)庫密碼不對!'); ?
? ? ? ? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? end ?
? ? ? ? ? ? ? ? else ? if ? e.Errorcode ? = ? -2147467259 ? then ?
? ? ? ? ? ? ? ? ? ? begin ?
? ? ? ? ? ? ? ? ? ? ? ? showmessage('數(shù)據(jù)庫服務(wù)器名或數(shù)據(jù)庫名不對!'); ?
? ? ? ? ? ? ? ? ? ? ? ? application.Terminate; ?
? ? ? ? ? ? ? ? ? ? end; ?
? ? ? ? ? ? end; ?
? ? ? end; ?
?

總結(jié)

以上是生活随笔為你收集整理的关于ini读取错误问题？的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。