Thema: Delphi speichern von daten

Einzelnen Beitrag anzeigen

MasterTobi

Registriert seit: 29. Apr 2007
212 Beiträge
 
#37

Re: speichern von daten

  Alt 17. Aug 2007, 19:23
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
  Mit Zitat antworten Zitat