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.