G
goodloop
Unregistered / Unconfirmed
GUEST, unregistred user!
IniFile:=TIniFile.Create('F:/Borland/2000/Delphi6/WallPaperMaker.ini');
DirectDelete:=IniFile.ReadBool('name1','name2',true);
STV.Path:=IniFile.ReadString('name3','Path',STV.SelectedFolder.PathName);
MovePath:=IniFile.ReadString('name4','MovePath',MovePath);
IniFIle.Free;
可以调试成功
但 IniFile:=TIniFile.Create('F:/Borland/2000/Delphi6/WallPaperMaker.ini');
With IniFile do
DirectDelete:=ReadBool('name1','name2',true);
STV.Path:=ReadString('name3','Path',STV.SelectedFolder.PathName);
MovePath:=ReadString('name4','MovePath',MovePath);
IniFIle.Free;
却一直编译不过去?
DirectDelete:=IniFile.ReadBool('name1','name2',true);
STV.Path:=IniFile.ReadString('name3','Path',STV.SelectedFolder.PathName);
MovePath:=IniFile.ReadString('name4','MovePath',MovePath);
IniFIle.Free;
可以调试成功
但 IniFile:=TIniFile.Create('F:/Borland/2000/Delphi6/WallPaperMaker.ini');
With IniFile do
DirectDelete:=ReadBool('name1','name2',true);
STV.Path:=ReadString('name3','Path',STV.SelectedFolder.PathName);
MovePath:=ReadString('name4','MovePath',MovePath);
IniFIle.Free;
却一直编译不过去?