IniFile.readString(小节名','关键字','这个是什么');(10分)

  • 主题发起人 主题发起人 阿姿
  • 开始时间 开始时间

阿姿

Unregistered / Unconfirmed
GUEST, unregistred user!
读INIFILE中的一个字符串,用到这个函数,可老读不对。请告我这个函数怎么用
 
[test]
xxx=string

inifile.readstring('test','xxx','defaultvaule');
 
var
IniFile :TIniFile;
FileName , Keyvalue:String;
begin
Inifile := TIniFile.create(filename);
Keyvalue := Inifile.readstring('小节名','关键字','傎');
end;
 
你要在uses 单元内添加 IniFiles,
procedure TForm1.FormActivate(Sender: TObject);
var
MyIniFile: TIniFile;
begin
MyIniFile := TIniFile.Create('myapp.ini');
with MyIniFile do
begin
Caption := ReadString('FormOptions', 'Caption', 'Main');
end;
MyIniFile.Free;
end;
 
后退
顶部