Bei laden steht das drinnne:
Delphi-Quellcode:
procedure TForm1.Laden1Click(Sender: TObject);
begin
SL := Application.MessageBox ('Achtung alle Daten seit dem letzen'+#10#13+'werden verloren gehen!',
'Öffnen', 1+32);
if opendialog1.execute then begin
Memo1.Lines[0] := Panel1.Caption;
Memo1.Lines[1] := Panel2.Caption;
Memo1.Lines[2] := Panel3.Caption;
Memo1.Lines[3] := Panel4.Caption;
Memo1.Lines[4] := Panel5.Caption;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;