Das große Lotto-Spiel - Bet and Win

[Balu der Bär]

Ähm was war nochmal die eigentliche Frage in diesem Thread?

Wenn es ums Speichern geht könntest du ganz einfach sowas machen:

Delphi-Quellcode:

var
  ini : TIniFile;
  i, g: Integer;
begin
  try
   ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini');
   for i := 1 to 6 do
    begin
      for g := 0 to (FindComponent('Listbox' + IntToStr(i)) as TListbox).Items.Count-1 do
       ini.WriteInteger('Listbox' + IntToStr(i), IntToStr(g), (FindComponent('Listbox' + IntToStr(i)) as TListbox).Items[g]);
     end;
   finally
    ini.Free;
end;

Ich habe den Code schnell getippt und nicht getestet, eigentlich sollte es aber in dieser Form gehen.