Hallo ich habe die Aufgabe aus einem Bubblesortcode der mit FOR-Schleifen geschrieben ist, den Schleißfentyp zu ändern einmal in While und einmal in Repeat. Soweit so gut! Ich hab schon einige versuche gestartet aber komme nicht wirklich auf einen grünen Zweig.
Wäre euch dankbar, wenn mir einer den Code umändern könnte!
Gruß Korg Pa 2x Pro
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i, j, h, n: integer;
begin
listbox2.Clear;
n:= strtoint (edt_a.text);
for i:= 1 to (n-1) do
for j:= i+1 to n do
if a[i] > a[j] then
begin
h := a[i];
a[i]:= a[j];
a[j] := h;
end;
for i:=1 to n do
listbox2.Items.Add (inttostr ( a[i]));
end;