Delphi-Quellcode:
Procedure InsertionSort;
var i,j,v : Integer;
Begin
For i:= 2
To N
Do
Begin
v:= Data[i];
j:= i;
While (j > 1)
and (Data[j-1] > v)
Do
Begin
Data[j]:= Data[j-1];
dec( j );
End;
Data[j]:= v;
End;
End;
soweit sogut dank der suchfunktion aber welche parameter müssen angepasst werden um zB die items einer listbox der größe nach zu ordnen?
<<<< so fühl ich mich grad blick nix mehr 11 stunden schule am tach sind zu viel!
ty for help