suche Hilfe für Abwandlung des Quicksort-Alg.

[negaH]

Du zerlegst die Strings in Zahlen, wobei alle Buchstaben zwischen den Zahlen eben Seperatoren sind.
Es entsteht also pro Strings ein Array aus Zahl,Text,Zahl,Text,Zahl,Text usw. usw.
Davon hast du in der Quicksort Routine ja zwei Arrays und nun fängst du an diese beiden Arrays und deren Elemente zu vergleichen. Aussehen könnte das ja dann so

Delphi-Quellcode:

type
  TElement = packed record
    Zahl: Integer;
    Text: String;
  end;

  TElementArray = array of TElement;

function ExtractElements(const Value: String): TElementArray;
var
  Text: PChar;
  Count: Integer;
  IsNumber,WasNumber,IsFirst: Boolean;
begin
  Result := nil;
  Text := PChar(Value);
  if Text <> nil then
  begin
    Count := -1;
    WasNumber := False;
    IsFirstChar := True;
    while Text^ <> #0 do
    begin
      IsNumber := Text^ in ['0'..'9'];
      if (IsNumber <> WasNumber) or IsFirstChar then
      begin
        WasNumber := IsNumber;
        IsFirstChar := False;
        Inc(Count);
        if Count mod 16 = 0 then SetLength(Result, Count + 16);
      end;  
      if IsNumber then Result[Count].Zahl := Result[Count].Zahl * 10 + Ord(Text^) - Ord('0')
        else Result[Count].Text := Result[Count].Text + Text^;
      Inc(Text);
    end;
    SetLength(Result, Count);
  end;
end;


function CompareElements(const A,B: TElementArray): Integer; 
  
  function Min(A,B: Integer): Integer;
  begin
    if ALen <= BLen then Result := ALen
      else Result := BLen;
  end;

var
  I,ALen,BLen: Integer;
begin
  Result := 0;
  ALen := High(A);
  BLen := High(B); 
  for I := 0 to Min(ALen, BLen) do
  begin
    Result := A[I].Zahl - B[I].Zahl;
    if Result <> 0 then Exit;
    Result := AnsiCompareText(A[I].Text, B[I].Text);
    if Result <> 0 then Exit; 
  end;
  Result := ALen - BLen;
end;

Mit ExtractElements() werden erstmal beide zu vergleichende Strings in Zahl/String Elemente umgewandelt und dann diese Arrays mit CompareElements() verglichen. Gibt diese Funktion < 0 zurück so ist A < B, bei 0 ist A == B und bei A > B eben > 0.

Obiger Code ist natürlich nur ein vereinfachter Vorschlag. Man könnte auch gleich die beiden Strings so wie oben gezeigt in parallel umwandeln und deren Resultate sofort vergleichen. Das hätte den Vorteil das schon sehr frühzeitig der Konvertierungscode abgebrochen werden kann.

Gruß Hagen