@boozz:
Also ich würde ganz spontan mal vorschlagen, die Schleifen nicht nur bis 10 laufen zu lassen, sondern bis 100.
Ausserdem würd ich das ganze mit records machen:
Delphi-Quellcode:
type
TScore = record
person : string[100];
Punkte : Integer;
end;
machst du einmal ein:
highscore :array of TScore;
und speicherst das mit:
Delphi-Quellcode:
var
f : file of TScore;
i : integer;
begin
AssignFile(f,'Dateiname');
rewrite(f);
for i:= 0 to Pred(Length(highscore)) do
write(f,highscore[i]);
CloseFile(f);
end;
und laden kannst das mit:
Delphi-Quellcode:
var
f : file of TScore;
begin
SetLength(highscore,0);
AssignFile(f,'Dateiname');
reset(f);
while not eof(f) do
begin
SetLength(highscore,Succ(Length(highscore)));
read(f,highscore[Pred(Length(Highscore))]);
end;
CloseFile(f);
end;
Ungetestet, sollte aber funktionieren
Edit: ach du Sch... wie iss denn das eingerückt??
Mach mal jemand was.. sieht ja furchtbar aus!