27-11-2017, Saat: 18:31
function TForm7.iniyol :String;
begin
result :=TPath.Combine(TPath.GetDocumentsPath, 'k1.ini');
end;
yazma
ini :=Tinifile.Create(iniyol);
ini.WriteString('ANA','IP',text1);
ini.free;
okuma
ini :=Tinifile.Create(iniyol);
text1.text :=ini.ReadString('ANA','IP','');
bunlar için çok ugraştım
begin
result :=TPath.Combine(TPath.GetDocumentsPath, 'k1.ini');
end;
yazma
ini :=Tinifile.Create(iniyol);
ini.WriteString('ANA','IP',text1);
ini.free;
okuma
ini :=Tinifile.Create(iniyol);
text1.text :=ini.ReadString('ANA','IP','');
bunlar için çok ugraştım