1. Warumj postest du immer noch Code ohne Code Tags? Dadurch werden hässliuche Leerzeichen eingefügt...
2. Warum doppelt? Hält besser?
Delphi-Quellcode:
function UpperCase(const S: string): string;
begin
Result := System.SysUtils.AnsiUpperCase(S); // Einmal das "richtige" sollte reichen...
end;