Registriert seit: 10. Jun 2003
Ort: Berlin
9.353 Beiträge
Delphi 11 Alexandria
|
Re: Groß u. Kleinschreibung eines Strings umkehren
24. Feb 2009, 23:28
Das ist etwas schneller:
Delphi-Quellcode:
function SwitchLowerUpper(Value: String): String;
var
i: Integer;
begin
Result := Value;
for i := 1 to Length(Value) do
if Value[i] in ['a'..'z'] then
Result[i] := Chr(Ord(Value[i]) - 32)
else if Value[i] in ['A'..'Z'] then
Result[i] := Chr(Ord(Value[i]) + 32);
end;
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
|