Guten Morgen allerseits,
ich bin sehr beeindruckt. In sehr kurzer Zeit bekam ich mehrere Antworten. Vielen Dank.
Ich habe das ganze jetzt folgendermaßen gelöst. Wenn das nicht ganz so elegant ist, dann bitte ich um Nachsicht und wenn ihr wollt, könnt ihr mich gern korrigieren.
Wie richtig vermutet, erstelle ich die Stringlist im FormCreate Ereignis.
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
Stringlist:=Tstringlist.Create;
end;
Die Daten übernehme ich im Ereignis, wo die Daten ausgelesen werden.
Code:
if checkbox1.Checked then
Stringlist.Add(Temp_f);
edit4.text:=Temp_f;
Im OnChange Ereignis sichere ich die Daten.
Code:
procedure TForm1.Edit4Change(Sender: TObject);
begin
if Checkbox1.Checked then
x:= GetCurrentDir;
x:=x+'\MSAVE.txt';
Stringlist.SaveToFile(x);
end;
Im Close Ereignis gebe ich die Stringlist wieder frei.
Code:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Stringlist.free;
end;
Vielen Dank nochmal für die rasche Hilfe.