Speichern==> Speichert nicht!

[Die Muhkuh]

Speichern geht nun nur das Laden nicht!

[Die Muhkuh]

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;

[iaby]

Code:

var datei: textfile;
    p_caption: array[1..5] of string;
    i: integer;
begin
if opendialog1.execute then
begin
assignfile(datei, opendialog1.filename);
reset(datei);
i:= 0;
while not eof(datei) do
  begin
  inc(i);
  readln(datei, p_caption[i]);
  end;
panel1.caption:= p_caption[1];
panel2.caption:= p_caption[2];
panel3.caption:= p_caption[3;
...
end;
end;

[Die Muhkuh]

OK es Geht!!!

Nämlich so:

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
  var datei: textfile;
begin
if Savedialog1.Execute then begin
assignfile(datei, savedialog1.filename);
rewrite(datei);
writeln(datei, panel1.caption);
writeln(datei, panel2.caption); 
writeln(datei, panel3.caption);
writeln(datei, panel4.caption); 
writeln(datei, panel5.caption);
closefile(datei); 
end;
end;


procedure TForm1.Laden1Click(Sender: TObject);
var datei: textfile;
    p_caption: array[1..5] of string; 
    i: integer;
begin 
if opendialog1.execute then
begin 
assignfile(datei, opendialog1.filename);
reset(datei); 
i:= 0; 
while not eof(datei) do 
  begin 
  inc(i);
  readln(datei, p_caption[i]);
  end;
panel1.caption:= p_caption[1];
panel2.caption:= p_caption[2];
Panel3.caption:= p_caption[3];
Panel4.caption:= p_caption[4];
Panel5.caption:= p_caption[5];

end;
end

[Meflin]

wow, jetzt hast du n paar möglichkeiten zur auswahl...