Nabend nochmal ;>
also habe hier mal was gemacht , sind wahrscheinlich viele fehler drin , aber wollte mal von euch wissen was ich daran noch ändern muss:
[procedure TForm1.Bubble_Sort(var Z: TZ_Feld);]
[var i, j, a, s, b: Integer; vertauscht : Boolean;]
[procedure Vertauschen( m, n : integer);]
[var Hilfszahl: integer ;]
[begin]
[Hilfszahl:=Zahlenfeld[m];]
[Zahlenfeld[m]:=Zahlenfeld[n];]
[Zahlenfeld[n]:=Hilfszahl;]
[vertauscht:=true;]
[end;]
[begin]
[repeat]
[vertauscht:=true;]
[for i:= 9 downto 1 do]
[for j:= 1 to i do]
[a:=StrToInt(StringGrid1.Cells[i,1]);]
[b:=StrToInt(StringGrid1.Cells[i+1,1]);]
[if a > b then]
[StringGrid1.Cells[i,1]:=IntToStr(b);]
[StringGrid1.Cells[i+1,1]:=IntToStr(a);]
[until sortiert;]
// hier muss ich irgendwie Stringgrid1 von j = b zuweisen
und j+1 = a .
vertauscht : = false ;
end;
aber irgendwie krieg ich das alles irgendwie nicht hin :>
mfg
eLverpeilo
