Sortieralgorithmen

[S.pas.s]

Irgendwie scheint die Hilfe von DeddyH nicht sehr hilfreich zu sein.

wenn ich's richtig verstehe, soll die Zeile: "if Memo1.Lines[j] > Memo1.lines[i] then " dann z.B. lauten

"if StrCompare(Memo1.Lines[j], Memo1.lines[i]) > 1 then "

und StrCompare sollte dann z.B. so aussehen:

Delphi-Quellcode:

function TForm1.StrCompare(const s1, s2: String): Integer;
var
  j, minLen: Integer;
begin
  minLen := Length(s1);
  if Length(s2) < minLen then
    minLen := Length(s2);
  j := 1; result := 0;
  while (j <= minLen) and (result = 0) do
  begin
    if ord(s1[j]) < ord(s2[j]) then
      result := -1
    else
      if ord(s1[j]) > ord(s2[j]) then
        result := 1
      else
        result := 0;
    inc(j);
  end;
end;

Die Funktion liefert 0, falls beide Strings gleich sind, 1 falls s1 > s2 und -1 falls s1 < s2.