So ich mach es doch nicht in der ini file
ich mache es so
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var zeile1, zeile2, zeile3: string;
pu: Tstringlist;
begin
zeile1 := edit1.text;
zeile2 := edit2.text;
zeile3 := edit3.text;
pu := Tstringlist.Create;
try
pu.Add(Zeile1);
pu.Add(Zeile2);
pu.Add(Zeile3);
with savedialog1 do if execute then
pu.SaveToFile(filename);
finally pu.free End;
end;
procedure TForm1.Button2Click(Sender: TObject);
var zeile1, zeile2, zeile3: string;
pu: Tstringlist;
begin
pu := Tstringlist.Create;
with opendialog1 do if execute then
pu.LoadfromFile(filename);
try
if pu.count > 0 then Zeile1 := pu[0] else zeile1 := 'Fehlanzeige';
if pu.count > 1 then Zeile2 := pu[1] else zeile2 := 'Fehlanzeige';
if pu.count > 2 then zeile3 := pu[2] else zeile3 := 'Fehlanzeige';
edit1.text := zeile1;
edit2.text := zeile2;
edit3.text := zeile3;
finally pu.free End;
end;
end.
Trozdem Thx @ all
MFG
Tobi