Das große Lotto-Spiel - Bet and Win

[Namenloser]

So langsam aber sicher könntest du den Copyright-Vermerk auf meinen namen umschreiben :lol:

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!

[Jay15688]

Vielen Dank! Werde es sofort ausprobieren!!

Einen Copyright-Vermerk hättest du dir in der Tat verdient ;)

Wenn alles gut geht, wird es das langsam gewesen sein...

Ich sehe Licht am Ende des Tunnels :)



MfG Jay

[Jay15688]

Soooo....

Jetzt kann man in die Tipp-Felder auch nur noch Zahlen bis max. 49 eingeben! :)

@NamenLozer:

Ich habe deinen Speicher- und Lade-Code eingebaut und soweit hat Delphi auch alles angenommen! Nur irgendwie zeigt er mir beim Laden " " is not a valid integer value"

Im Anhang ist das aktuelle Projekt! Wäre sehr nett, wenn du nochmal ein letzten Mal drüberschauen könntest! Ich finde den Fehler irgendwie nicht!


Vielen Dank!


Mfg Jay

[Namenloser]

kanns sein, dass du den code in eine ältere version des porjekts eingefügt hast? denn die filter funzen wieder nicht...

[Jay15688]

Nein, die Filter haben ansich einen Fehler in Delphi ausgelöst, daraufhin habe ich aufgrund des Zeitdrucks die Filter erstmal aussenvor gelassen und versucht, das generelle Laden und Speichern hinzukriegen!

Nun kommt beim Laden eben beschriebener Fehler! Weisst du, wie man das beheben könnte?? Die Ladenfunktion ist jetzt das allerletzte, was irgendwie noch klappen muss :)
Ich werde dich für einen Nobelpreis vorschlagen ;)

Danke


MfG Jay


Edit: Filter-Fehler sind behoben! Leider kommt nach wie vor die Fehlermeldung beim Laden " is not a valid integer value! Habe die neuste Version auch nochmal im Anhang hochgeladen!


Need Heeeeelp ^^

[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!

[Jay15688]

Ich habe deinen Code eingefügt und die Fehlermeldung kommt in der Tat nicht mehr!

Allerdings wird komischerweise auch nichts in die Listbox geladen, wenn ich eine Datei zum Laden auswähle!
Tut mir Leid, wenn ich mich jetzt echt absolut blöd anstelle, aber es ist ja so gut wie geschafft!

Im Anhang das Programm! Schau es dir bitte an, dann wird für dich das Problem wohl eindeutig sein!

Danke


MfG Jay

[Namenloser]

lesen!

Delphi-Quellcode:

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