Textdatei sortieren

[Angel4585]

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