Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Hilfestellung Speichern/Laden von Werten in anderen Datein

  Alt 15. Nov 2011, 08:48
So, damit kannst Du mal anfangen rumzuspielen .....

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
   if Opendialog.Execute then
      try
        sl:=TStringList.Create;
        sl.LoadFromFile(Opendialog.FileName);
        if sl.Count > 0 then Edit1.Text := sl[0];
      finally
        sl.Free;
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sl:TStringList;
begin
  if SaveDialog.Execute then
      try
        sl:=TStringList.Create;
        sl.Add(Edit1.Text);
        sl.SaveToFile(Savedialog.FileName);
      finally
        sl.Free;
      end;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat