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 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;