Tstringgrid, array

[danku]

was mach ich noch falsch?

Delphi-Quellcode:

{Stringliste1:=TStringList.Create;
for i := 0 to High(Feld) do
  begin
  Stringliste1.Add(intToStr(Feld[i]));
  end;
//result := Stringliste1;



Stringliste2:=TStringList.Create;
for i := 0 to High(Feld) do
  begin
  Stringliste2.Add(intToStr(Feld[i]));
  end;}


  if cbbubble.Checked then begin  //Bubble-Sort Button

  sgtab2.Cols[0].Assign(sgtab.Cols[0]);
  sgtab2.Cols[1].Assign(sgtab.Cols[1]);
  sgTab.cells[0,0]:='Nr.';
  sgTab.cells[1,0]:='Binär';
  objekt.BubbleSort(Stringliste2);
  objekt.BubbleSort(Feld);              //sgtab2.Cols[1]
  ...
  

  if cbquick.checked then begin    //Quick-Sort Button

  for I:=Low(Feld) to High(Feld) do
   Feld[I]:=Random(High(Integer));
   sgTab2.cells[1,1+i]:= inttostr(feld[i]);
   //Feld[I]:= strtoint(sgTab.cells[1,1+i]);
  objekt.quick_Sort(Feld);
  



//Bubble Sort in Klasse Tsuch: (objekt:=TSuch)

procedure TSuch.BubbleSort(var A: Array of Integer);
begin

for i:=0 to high(A)-1 do
begin
  done:=true;
  for k:=0 to high(A)-1 do
  begin
    if A[k] > A[k+1] then
    begin
    Hilf := A[k];
    A[k] := A[k+1];
    A[k+1] := Hilf;
    done:=false;
    end;
  end;
if done then
exit;
end;

end;