procedure TForm1.bestenlistebuttonClick(Sender: TObject);
var ende,zwischenspeicher,lauefer,lauefer2,x,y,wertespeicher,wabbel:integer;
personenspeicher:
string;
platz:
array[1..100]
of integer;
person:
array[1..100]
of string;
begin
bestenliste.Show;
highscore:=TStringList.Create;
if FileExists ('
memory.txt')
then
begin
highscore.LoadFromFile('
memory.txt');
ende:=highscore.Count;
lauefer:=0;
lauefer2:=1;
for x:=1
to 10
do
begin
if (highscore.Count/2>=x)
then
begin
platz[x]:=StrToInt(highscore[lauefer]);
lauefer:=lauefer+2;
person[x]:=highscore[lauefer2];
lauefer2:=lauefer2+2;
end;
end;
for y:=1
to 10
do
begin
for x:=1
to 10
do
begin
if (highscore.Count/2>=x)
then
begin
if platz[x+1]<platz[x]
then
begin
wertespeicher:=platz[x];
personenspeicher:=person[x];
platz[x]:=platz[x+1];
person[x]:=person[x+1];
platz[x+1]:=wertespeicher;
person[x+1]:=personenspeicher;
end;
end;
end;
end;
bestenliste.Label1.Caption:=IntToStr(platz[2]);
bestenliste.Label2.Caption:=IntToStr(platz[3]);
bestenliste.Label3.Caption:=IntToStr(platz[4]);
bestenliste.Label4.Caption:=IntToStr(platz[5]);
bestenliste.Label5.Caption:=IntToStr(platz[6]);
bestenliste.Label6.Caption:=IntToStr(platz[7]);
bestenliste.Label7.Caption:=IntToStr(platz[8]);
bestenliste.Label8.Caption:=IntToStr(platz[9]);
bestenliste.Label9.Caption:=IntToStr(platz[10]);
bestenliste.Label39.Caption:=person[2];
bestenliste.Label38.Caption:=person[3];
bestenliste.Label37.Caption:=person[4];
bestenliste.Label36.Caption:=person[5];
bestenliste.Label35.Caption:=person[6];
bestenliste.Label34.Caption:=person[7];
bestenliste.Label33.Caption:=person[8];
bestenliste.Label32.Caption:=person[9];
bestenliste.Label31.Caption:=person[10];
highscore.Free;
end;
end;