... und kriege es nicht hin.
Hi Zusammen , wie schon im topic erwähnt habe ich ein Problem mit dem Bubble_Sort:
Delphi-Quellcode:
procedure TForm1.Bubble_Sort(var Z: TZ_Feld);
var i : integer; vertauscht : Boolean;
procedure Vertauschen(m, n : integer);
var Hilfszahl, a, b: integer;
begin
Hilfszahl:=Zahlenfeld[m];
Zahlenfeld[m]:=Zahlenfeld[n];
Zahlenfeld[n]:=Hilfszahl;
vertauscht:=true;
end;
begin
repeat
vertauscht:=false;
------------------------------------------------------------------------
(( Der obere Teil wurde uns gegeben , es sind halt auch noch Sort und Neu klick , ausgabe und formcreate enthalten aber die brauch ich ja nicht hierrein zu schreiben)))
so ich bin dann so verblieben:
Delphi-Quellcode:
for i:= 1 to 9 do
begin
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);
so und nun weiss ich nicht mehr weiter . Ehrlich gesagt habe ich immoment noch nicht den wirklich den plan was ich da mache , also bitte um verständniss ;>
mfg
eLverpeilo
[edit=FuckRacism]Delphi-Syntax; Mfg, FuckRacism[/edit]