Einzelnen Beitrag anzeigen

Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#41

Re: Das große Lotto-Spiel - Bet and Win

  Alt 3. Dez 2006, 19:42
So langsam aber sicher könntest du den Copyright-Vermerk auf meinen namen umschreiben

also in gottes namen...

Delphi-Quellcode:
procedure TZiehungen.savetofile(filename: string);
var ini: tinifile;
    i,j: integer;
    s: string;
begin
  ini := TInifile.Create(filename);
  for i := 0 to count-1 do
  begin
    s := '';
    for j := 0 to 6 do
      s := format('%s%d,',[s,items[i][j]]);
    ini.WriteString('tipps',format('Zahlen%d',[i]),s);
  end;
  ini.Free;
end;
Aber ich finde, das hättest du auch noch selbst hinbekommen können...
Ebenfalls ungetestet!
  Mit Zitat antworten Zitat