Ich brauche ja etwas, das erst die Daten aus einem Save in einen (richtig deklarierten) Record liest, dann den Nickname und das Charakterlevel als String in die Combobox einfügt und zur nächsten Datei springt.
Mein Record:
Delphi-Quellcode:
type t_figur=record
PER:record{Persönliche Daten}
NI:string[20];
GES:string[1];
AVA:integer;
end;
DAT:record{Figurendaten(Zahlen)}
AHP, MAXHP:integer;
AMP, MAXMP:integer;
POI{NTS}:integer;
EXP{ERIENCE}:integer;
LVL:integer;
ATT{ACKE}:integer;
QUE{STS ABGESCHLOSSEN}:integer;
end;
INV:record{Inventar}
HPOK, HPOG:integer;
MPOK, MPOG:integer;
HPO, MPO:integer;
end;
WAF:record{Waffen}
end;
SPE:record{Sprüche}
end;
LOC:record{Position}
X, Y:integer;
end;
FIG:record
AVA:boolean;
COL:integer;
end;
end;
Die Deklarationen:
Delphi-Quellcode:
dir:string;
FIG:t_figur;
figdat:file of t_figur;
anz:integer;//Anzahl vorhandener Saves
I:integer;//Nächstes freies Save
Hier nochmal meine Prozedur beim Klick auf LADEN:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var K:integer;
begin
Laden1.Chara.Items.Clear;
Image1.Visible:=false;
Image2.Visible:=true;
Button1.Visible:=false;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
Label1.Visible:=false;
Laden1.Visible:=true;
K:=1;
while(K<=10)do
begin
if fileexists(dir+'\DATA\save\'+inttostr(K)+'.sav')
then
begin
{}
assignfile(figdat, dir+'\DATA\save\'+inttostr(K)+'.sav');
reset(figdat);
read(figdat, FIG);
closefile(figdat);
{}
Laden1.Chara.Items.Add(FIG.PER.NI+', Level '+inttostr(FIG.DAT.LVL));
end;
K:=K+1;
end;
end;