var AIniFile:TIniFile; IniFileName:string; CurrDir:string; begin GetDir(0,CurrDir); AIniFile := TIniFile.Create(CurrDir+'\'+IniFileName); try with AIniFile do begin //Read operation end; finally AIniFile.Destroy; end;
var iniFile:TIniFile; begin iniFile:=TInifile.create('.\a.ini'); //用'.\'就可以打开当前目录,不用就是打开WINDOWS目录。 ...
var ss :string; dir : string; fini : TIniFile; begin ss := GetCurrentDir; dir := ss+'\Setup'+IntToStr(File_Name)+'.ini'; fini := Tinifile.create(dir); ss := fini.readstring('option','keyname',''); .... fini.free;
var iniFile:TInifile; begin iniFile:=TInifile.create('.\a.ini'); //用'.\'就是打开当前目录,不用就是打开WINDOWS目录
var IniPath:string; MyFile:TIniFile; begin //ini文件放在应用程序目录下的ini文件夹下 IniPath:=ExtractFilePaht(Application.ExeName)+'ini\'+'Myini.ini'; try MyFile:=TiniFile.Create(IniPath) with MyFile do begin Readstring('xxx','xxx',xxx); ........ end; finally Myfile.free; end; end;
var IniFile:TIniFile; IniFileName:string; TempDir:string; begin TempDir:= ExtractFilePath(Application.ExeName); IniFileName:=TempDIr + '\Config.Ini'; IniFile := TIniFile.Create(IniFileName); With IniFile Do Begin XX:=IniFile.ReadString('节名称','值名称','默认值'); End; IniFile.Free; end;
不好意思,错了一句,应为: With IniFile Do Begin XX:=ReadString('节名称','值名称','默认值'); End;另外,加上 try finally 语句会更好!!!!!!!!!!!
AIniFile:TIniFile;
IniFileName:string;
CurrDir:string;
begin
GetDir(0,CurrDir);
AIniFile := TIniFile.Create(CurrDir+'\'+IniFileName);
try
with AIniFile do
begin
//Read operation
end;
finally
AIniFile.Destroy;
end;
iniFile:TIniFile;
begin
iniFile:=TInifile.create('.\a.ini');
//用'.\'就可以打开当前目录,不用就是打开WINDOWS目录。
...
dir : string;
fini : TIniFile;
begin
ss := GetCurrentDir;
dir := ss+'\Setup'+IntToStr(File_Name)+'.ini';
fini := Tinifile.create(dir);
ss := fini.readstring('option','keyname','');
....
fini.free;
iniFile:TInifile;
begin
iniFile:=TInifile.create('.\a.ini');
//用'.\'就是打开当前目录,不用就是打开WINDOWS目录
IniPath:string;
MyFile:TIniFile;
begin
//ini文件放在应用程序目录下的ini文件夹下
IniPath:=ExtractFilePaht(Application.ExeName)+'ini\'+'Myini.ini';
try
MyFile:=TiniFile.Create(IniPath)
with MyFile do
begin
Readstring('xxx','xxx',xxx);
........
end;
finally
Myfile.free;
end;
end;
IniFile:TIniFile;
IniFileName:string;
TempDir:string;
begin
TempDir:= ExtractFilePath(Application.ExeName);
IniFileName:=TempDIr + '\Config.Ini';
IniFile := TIniFile.Create(IniFileName);
With IniFile Do Begin
XX:=IniFile.ReadString('节名称','值名称','默认值');
End;
IniFile.Free;
end;
With IniFile Do Begin
XX:=ReadString('节名称','值名称','默认值');
End;另外,加上 try
finally
语句会更好!!!!!!!!!!!