|
Registriert seit: 14. Dez 2003
153 Beiträge
|
Re: Verschiebungsfaktor in delphi ?
17. Mär 2004, 21:09
wenn ichs nicht falsch verstanden habe:
Delphi-Quellcode:
procedure verschiebText(var Text: string; um: integer);
var
i: integer;
begin
for i := 1 to length(Text) do
Text[i] := chr((ord(Text[i]) - ord('A')) mod 26 + ord('A'));
end;
Mann zu Frau:
Zieh dich aus, wir müssen reden!
|