procedure
Readthefile; var MyIni: Tinifile;
S: String;
begin
MyIni:=TIniFile.Create('/home/MyShare/Test.ini');
S :=
MyIni.ReadString('TestSection','TestValue','');
Edit2.Text:=S;
MyIni.Free; end; procedure writethefile; var Myini: TIniFile;
begin
MyIni:=TIniFile.Create('/home/MyShare/Test.ini');
MyIni.WriteString('TestSection','TestValue',Edit1.Text);
MyIni.UpdateFile;
^^^^^^^^^^^^^^^^^^^^^^^
MyIni.Free; end;
|