Einzelnen Beitrag anzeigen

fabiO

Registriert seit: 5. Dez 2004
Ort: Jena
41 Beiträge
 
Delphi 6 Personal
 
#5

Re: Problem mit Sortieralgorithmus

  Alt 11. Sep 2005, 15:15
huhu

Also da ich ja ein Array of String sortieren will, hab ich erstmal das Array Feld in String geändert (Feld = ARRAY [ 1..Max] OF String).
Danach musste ich ja noch die beiden lok. Variablen ändern, meiner meinung nach t und hilf...
aber damit der Algorithmus die Namen verarbeiten kann, muss ich doch auch die Parameter Von und Bis in String ändern, oder seh ich das grad wieder falsch?

Delphi-Quellcode:
PROCEDURE Quicksort ( Von , Bis : LongInt);

VAR lz,rz : LongInt;
          t : String;
       hilf : String;

BEGIN
    lz := Von; rz := Bis;
    t := F [ ( Von+Bis ) DIV 2 ];

  REPEAT

    WHILE F[lz] < t DO Inc(lz);
    WHILE t < F[rz] DO Dec(rz);
    IF lz <= rz THEN
      BEGIN
        hilf := F[lz];
        F[lz] := F[rz];
        F[rz] := hilf;
        Inc(lz);
        Dec(rz);
      END

  UNTIL lz > rz;

  IF Von < rz THEN QuickSort ( Von , rz);
  IF lz < Bis THEN QuickSort ( lz, Bis );

END;
Denn wenn ich eingebe quicksort(bla[0], bla[high(bla)]);
bekomm ich 'Incompatible Types: 'Integer' and 'String'

Wenn mir da noch einer weiterhelfen könnte wär ich ziemlich froh
  Mit Zitat antworten Zitat