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