Speichern==> Speichert nicht!

[Die Muhkuh]

hi ich hab ein Programm geschrieben und will nun das man speichen und laden kann!

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  Savedialog1.execute ;
end;

Muss nachdem

Delphi-Quellcode:

Savedialog1.execute ;

noch was rein???


Spider

[Alexander]

Der SaveDialog ist nur der Dialog selber, um den Speicher-Pfad heruaszufinden.
Speichern musst du schon selber.
Was genau soll denn gespeichert werden?
Bei nem Memo und Richedit gibt es z.B. Lines.SaveToFile();...

[Die Muhkuh]

Es müssen 5 Panels gespeichert werden!

Quasi so:

Delphi-Quellcode:

...
Savedialog1.execute;
Panel1.savetofile;
Panel2.savetofile;
Panel3.savetofile;
.
.
.

Oder wie sonst?

[iaby]

so sollte dann ein speichern dialog erscheinen!
wenn du dann noch speichern, musst du auf die property filename von savedialog1 zugreifen.
also beispielsweise so:

Code:

memo1.lines.savetofile(savedialog1.filename);

wichtig ist auch noch, das du den savedialog mit einer if anweisung aufrust, also so:

Code:

if savedialog1.execute then
  begin
  //hier die speichern routine
  end;

dann wird nur gespeichert, wenn der benutzer nicht abbrechen gedrückt hat!
hoffe ich konnte dir weiterhelfen.

gruss,
iaby

[Meflin]

meinst du vielleicht den text des panels?

[Die Muhkuh]

@Melfin

Jep!

[iaby]

was meinst du mit panels speichern?

[iaby]

Code:

var datei: textfile;
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;

nicht ausprobiert, sollte aber gehen!

[Die Muhkuh]

@iaby

Der Text... Wenn halt x drin steht soll x gespeichert werden. Wenn man ein Neues Spiel macht und das Anfangs wert ist a und man ladet soll wieder wert X da sein!

[Meflin]

ein bsp mit dem du die captions in einer datei abspeichserst:

Delphi-Quellcode:

if savedialog1.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.SaveToFile(SaveDialog1.FileName);
end;

[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...