Supportnet / Forum / Datenbanken
Delphi 7 Bubble Sort
Frage
Hallo, ich armer Delphi noob hab da so ein Problem, ich habe eine Liste mit Namen und möchte diese Sortieren:
procedure Tform1.sortiere(Var liste:TListe);
Var i,j: Integer;
speicher: string;
vertauscht: boolean;
Begin
i:=0;
Repeat
Begin
i:=i+1;
vertauscht:=false;
For i:=1 to ende-1 do
Begin
For j:=1 to ende-i do
Begin
If liste[j]>liste[j+1]
Then
Begin
speicher:=liste[j+1];
vertauscht:=true;
swap(liste[j],liste[j+1]);
end;
end;
end;
Until i=ende-1;
end;
das funzt aber alles nicht, es kommt immer eine Endlosschleife. Bitte helft mir!!
Antwort 1 von testfix4711
Hm,
bin zwar kein Delphi-Freak, aber in Deiner Schleife wird der Variablen "ende" kein Wert zugewiesen, daher auch die Endlossschleife.
Gruß
testfix4711
bin zwar kein Delphi-Freak, aber in Deiner Schleife wird der Variablen "ende" kein Wert zugewiesen, daher auch die Endlossschleife.
Gruß
testfix4711
Antwort 2 von Fred_Konkret
Ne ende ist ne globale Variable, die wird woanders definiert, aber das Prob hat sich erledigt, trotzdem thx!