Hallo!
Ich habe es nun mit der Methode von Sirius gelöst.
Zitat:
uses Dialogs;
procedure TForm1.SpeichernButtonClick(Sender: TObject);
var SaveDialog:TSaveDialog;
Datei:TFileStream;
i:integer;
stext:string;
textlength:integer;
begin
SaveDialog:=TSavedialog.Create(nil);
try
SaveDialog.Filter:='Motoren (*.mot)|*.mot';
savedialog.DefaultExt:='mot';
if SaveDialog.Execute then
begin
Datei:=TfileStream.Create(SaveDialog.FileName,fmCr eate);
try
for i:=1 to 3 do
begin
stext:=TEdit(findcomponent('Edit'+inttostr(i))).Te xt;
textlength:=length(stext);
Datei.Write(textlength,sizeof(textlength));
Datei.Write(stext[1],textlength);
end;
finally
Datei.free;
end;
end;
finally
SaveDialog.Free;
end;
end;
procedure TForm1.LadenButtonClick(Sender: TObject);
var OpenDialog:TOpenDialog;
Datei:TFileStream;
i:integer;
stext:string;
textlength:integer;
begin
OpenDialog:=TOpendialog.Create(nil);
try
OpenDialog.Filter:='Motoren (*.mot)|*.mot|Alle Dateien|*.*';
if OpenDialog.Execute then
begin
Datei:=TfileStream.Create(OpenDialog.FileName,fmOp enRead);
try
for i:=1 to 3 do
begin
Datei.Read(textlength,sizeof(textlength));
setlength(stext,textlength);
Datei.Read(stext[1],textlength);
TEdit(findcomponent('Edit'+inttostr(i))).Text:=ste xt;
end;
finally
Datei.free;
end;
end;
finally
OpenDialog.Free;
end;
end;
Was soll ich sagen?
Es ist exakt so, wie ich mir das vorgestellt hatte - Allerbesten Dank dafür!!!!!
Klasse, dass einem so schnell hier geholfen wird!
gruss
Andi