damit wir dem armen kerl mal helfen ... ^^
Code:
procedure Tsortierverfahren.bubblesort;
var
hilfe,i:longint;
vertauscht:boolean;
begin
// anzahl = obere grenze des arrays
Repeat
vertauscht:=false;
For i:=1 to anzahl-1 do
IF kopie[i]>kopie[i+1] Then
begin
hilfe:=kopie[i];
kopie[i]:=kopie[i+1];
kopie[i+1]:=hilfe;
vertauscht:=true;
end;
dec(anzahl);
Until vertauscht=false;
end;
Das sortierverfahren nennt sich bubblesort
danach musst du nurnoch ausgeben...
PS. ein memo ist dafür wohl nicht das geeignetste object.... benutz besser ne listbox