Zitat:
Delphi-Quellcode:
C := CompareStr(IntToStr(ord(Text[P])), IntToStr(ord(Text[P+1])));
if C > 0 then begin
Ersetze mal obigen Teil durch
if ansiLowercase(Text[P]) >AnsiLowercase(Text[P+1]) then begin
Wenn du Casesensitiv arbeiten willst lass dass "AnsiLowercase" weg.
MfG
Thorsten