Sortieralgorithmus

[Luckie]

Zitat von snears:

außerdem würde ich gerne wissen, wie bei folgendem Quelltext eine äußere Schleife den Sortiervorgagn automatisiert.

Code:

procedure TForm1.Button1.Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to laenge -1 do begin
 if meinFeld[i]> meinFeld[i+1] then begin
  Tausch(meinFeld[i], meinFeld[i+1]);
end;
end;
end;

Stichwort Bubblesort.