Hai Wadim,
der Code von dir ist nicht ohne Gefahr.
du gibst im
OnClose Ereigniss IMMER dein Objekt
list frei. Ohne das es erstellt sein muss.
Wenn keiner auf Button1 oder Button2 geklickt hat wurde es ja nicht erzeugt.
Zitat von
Wadim:
Delphi-Quellcode:
unit Unit1;
....
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
list.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
list := tstringlist.Create;
list.SaveToFile ('
test');
for a := 1
to 3
do
list.add ((findcomponent ('
edit' + inttostr (a))
as tedit).text);
end;
......
Stephan B.
"Lasst den Gänsen ihre Füßchen"