不使用API讀取ini

 

1. uses inifiles;
3. procedure TForm1.FormCreate(Sender: TObject);
4. var
5. ini: TIniFile;
6. path,a,b,c,d: string;       
7. begin
8. path := ExtractFilePath(Application.Exename)+'server.INI';     獲取當前路徑ini
9. ini := TIniFile.Create(path);
11. a:= ini.ReadString('SYSTEM','ServerIP','');
13. b:= ini.ReadString('SYSTEM','DataBase','');
14. c:= ini.ReadString('SYSTEM','PWD','');
15. d:= ini.ReadString('SYSTEM','UserNamse','');
17. end;