Hallo Leute, ich hab ein Problem ich hab hier den Quelltext für ein insertionSort-Programm aber ich krieg nicht angepasst so das ich die Zahlen per editfeld eingeben und die sortierten Daten in einer Listbox ausgegeben werden...
LG Overprogrammer
Delphi-Quellcode:
for i:= 1
to 6
do
if (a[i]<a[i-1])
then
begin
j:= i;
tmp := a[i];
while (j > 0)
and (a[j-1] > tmp)
do
begin
// Verschieben:
a[j]:= a[j-1];
Dec(j);
end;
a[j]:= tmp;
end;