Hi Leute!
Ich will 10 gewürfelte zahlen von 1 bis 50 nach Bubble Sort sortieren.
Allerdings dreht er bei mir dabei nur die Reihenvolge der Zahlen um.
Wenn ich die Sache mit dem Debugger angehe zeigt er mir an, dass "s" nicht angezeigt werden kann,wegen Optimierung...
kann mir jemand weiterhelfen?
Hier ist der zugehörige Quellcode:
Delphi-Quellcode:
procedure tauschen(var x, y: integer);
var hilf: integer;
begin
hilf:= x;
x:= y;
y:= hilf;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i, x : integer;
begin
for i := 1 to 10 do
begin
x:= random(50);
a[i]:= x;
Listbox1.Items.add(IntToStr(a[i]));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n, s: integer;
begin
for n:= 10 downto 1 do
begin
for s:= 0 to n-1 do
begin
if a[s] > a[s]+1
then tauschen(a[s], a[s+1]);
end;
Listbox2.items.Add(IntToStr(a[n]));
end;
end;