Hallo, ich hab den Fehler (unglaublich aber wahr!) dann selber gefunden...trotzdem danke, für die tipps!!
Delphi-Quellcode:
procedure sortieren (zz:tzz);
var i,j,hilf:integer;
begin
for i:= 20 downto 1 do
for j:= 1 to i do
begin
if
zz[j]<zz[j-1] then
begin
hilf:= zz[j-1];
zz[j-1]:= zz[j];
zz[j]:= hilf;
end;
end;
for i:= 1 to 20 do
Form1.ListBox2.Items.Add(IntToStr(zz[i]));
end;
jetzt werden die zahlen sortiert....müsste ich denn anstatt zz[j]<[zz[j-1] eher schreiben zz[j]>zz[j+1], damit j nicht 0 werden kann...aber dann werden die Zahlen absteigend sortiert...also 20 10 5 1 und nicht 1 5 10 20....Ach so und das mit dem anfängerlich trifft voll und ganz zu *g*