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