Hey Sharky,
danke für die schnelle Antwort!
Wie meinst du das genau? Zum Beispiel hier soetwas klappt nicht:
Zitat:
procedure TForm1.Spielspeichern1Click(Sender: TObject);
begin
SaveDialog1.Title := 'Spiel speichern unter: ';
SaveDialog1.FileName := 'Savegame.sav';
SaveDialog1.Filter := '.sav';
if SaveDialog1.Execute then
begin
Listbox1.Items.SaveToFile(SaveDialog1.FileName);
end;
if SaveDialog1.Execute then
begin
Listbox2.Items.SaveToFile(SaveDialog1.FileName);
end;
if SaveDialog1.Execute then
begin
Listbox3.Items.SaveToFile(SaveDialog1.FileName);
end;
if SaveDialog1.Execute then
begin
Listbox4.Items.SaveToFile(SaveDialog1.FileName);
end;
if SaveDialog1.Execute then
begin
Listbox5.Items.SaveToFile(SaveDialog1.FileName);
end;
if SaveDialog1.Execute then
begin
Listbox6.Items.SaveToFile(SaveDialog1.FileName);
end;
end;
Kannst du mir es vllt als Beispiel für die ersten zwei Listboxen vormachen? Dann dürfte ich es selber hinkriegen...
Nocheinmal Entschuldigung für meine Doofheit, aber bin erst neu dabei =)
MfG Jay