Das große Lotto-Spiel - Bet and Win

[Namenloser]

Delphi-Quellcode:

procedure TForm1.Spielspeichern1Click(Sender: TObject);
var stringlist: TStringlist;
begin
  SaveDialog1.Title := 'Spiel speichern unter: ';
  SaveDialog1.FileName := 'Savegame.sav';
  SaveDialog1.Filter := '.sav';

  if SaveDialog1.Execute then
  begin
    stringlist := TStringlist.create;
    stringlist.addStrings(listbox1.items);
    stringlist.addStrings(listbox2.items);
    stringlist.addStrings(listbox3.items);
    stringlist.addStrings(listbox4.items);
    stringlist.addStrings(listbox5.items);
    stringlist.addStrings(listbox6.items);
    stringlist.SaveToFile(SaveDialog1.FileName);
    stringlist.free;
  end;
end;

Hier werden alle Items zu einer Stringlist zsuammengefügt und diese Stringlist wird dann gespeichert. Ist es das, was du willst?