Eure besten Quellcode Kommentare...

[himitsu]

tut mir Leid, aber ich konnt nimmer anders

Delphi-Quellcode:

{$IF Declared(UnicodeString)}

  Function AnsiLowerCase(Const S: AnsiString): AnsiString;
    Begin
      Result := AnsiStrings.AnsiLowerCase(S);
    End;

  Function UnicodeLowerCase(Const S: UnicodeString): UnicodeString;
    Begin
      Result := SysUtils.AnsiLowerCase(S);  // ich weiß, D2009 ist besch***
    End;

{$IFEND}

(WideLowerCase ist wenigstens noch OK)