Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Hilfestellung Speichern/Laden von Werten in anderen Datein
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)
|