Einzelnen Beitrag anzeigen

Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#1

Einbinden von Quicksort in Procedure

  Alt 16. Jun 2005, 21:28
Ich wollte gern diese Zeile als Quicksortbefehl schreiben.
Und Zwar in sollte sie in die untere Procedure eingebunden sein.Ich habe bis jetzt nur eigene Proceduren zu Quicksort gefunden. Wie kann kann mann so was machen?

Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));



Delphi-Quellcode:
procedure TForm1.AddMyItem(const AItem: String; const AColor: TColor);
var
  x,y,i : Integer;
  Counter : array[0..200] of Integer;
begin
  DoubleBuffered := True;
  Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
for i := 0 to 200 do
  for y := 0 to 144 do
  begin
    Counter[i] := 0;
    Feld[i] := 0;
  end;
  // Hier beginnen die Berechnungen
  for x := meineListe.count - 1 downto 0 do
  for y := 0 to 144 do // Mit jedem SetOfByte vergleichen
  begin
    if (StrToInt(meineListe.Strings[x]) in werte[y]) then
    begin
        Counter[y] := 0
    end
    else
    begin
      Inc(Counter[y]);
    end;
  end;
  ////////Hier beginnt Sortierverfahren
  begin
      Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));
  end;///.... Berechnungen gehen hier Weiter.....
  Mit Zitat antworten Zitat