Das große Lotto-Spiel - Bet and Win

[Namenloser]

Delphi-Quellcode:

procedure TZiehungen.LoadFromfile(filename: string);
var ini: tinifile; 
    stringlist: tstringlist; 
    lottozahlen: tlottozahlen; 
    i,j,offset: integer; 
    s: string; 
begin 
  { Inidatei laden } 
  ini := tinifile.Create(filename);
  stringlist := tstringlist.Create;
  { alte tipps löschen } 
  clear; 
  { alle Keys aus der section "tipps" in stringlist einlesen }
  ini.ReadSection('tipps',stringlist);
  for i := 0 to stringlist.count-1 do
  begin
    offset := 0;
    for j := 1 to 6 do
    begin
      { value-abschnitt zwischen zwei kommas extrahieren }
      s := ini.ReadString('tipps',stringlist[i],'');
      s := copy(s, offset,PosEx(',',s,offset)-offset);
      { neuen offset setzen (nach position des nächsten kommas) }
      offset := posex(',',ini.ReadString('tipps',stringlist[i],'')
        ,offset+1)+1;

      { extrahierten wert als integer in lottozahlen einfügen }
      lottozahlen[j] := strtoint(s);
    end;
    { Aus value geladene lottozahlen zur liste hinzufügen } 
    add(lottozahlen); 
  end;
  stringlist.free;
  ini.free;
end;

Diesmal getestet! funzt!
du musst nur in der procedure, in der der code ausgeführt wird (buttonirgendwas.onclick) noch folgendes einfügen: (damit die listbox aktualisiert wird)

Delphi-Quellcode:

{...}
var i: integer;
begin
{...}
for i := 0 to ziehungen.count-1 do
  listbox1.add('');

Fertsch!