Hmm, so ganz verstehe ich die
av auch nicht, aber eigentlich hatte ich mir gedacht, dass du in tziehungen.loadfromfile und tziehungen.savetofile die entsprechenden funktionen reinschreibst. sonst macht es eigentlich wenig sinn, das zeug in einer klasse zu kapseln...
ich hatte mir auch gedacht, dass du eine klasse tplayers und einen record tplayer einführen würdest.
@speichern/laden: das kann nicht gehen, weil in der listbox selber gar nichts drinsteht! stattdessen wird die listbox nur zur anzeige benutzt, die eigentlichen daten stehen in "ziehungen", daher ist in der klasse tziehungen ja auch schon loadfromfile und savetofile deklariert (wenn auch auskommentiert). Wie ich bereits gesagt habe, bei dem format kannst du ja kreativ sein.
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
j := 0;
offset := 1;
for j := 1 to 6 do
begin
{ value-abschnitt zwischen zwei kommas extrahieren }
s := copy(stringlist[i],offset,posex(',',stringlist[i],offset)-offset);
{ neuen offset setzen (nach position des nächsten kommas) }
offset := posex(',',stringlist[i],offset)+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;
Ungetestet! Speicher-Methode kannst du ja selbst schreiben (wenns funktioniert
)
(Die speicher-methode entspricht hier meiner zweiten variante aus meinem letzten post. (es werden aber nur zahlen gespeichert, keine spieler!))