Delphi-Quellcode:
begin
x := ord(Satz[i]);
if (x >= 65) and (x<=122) then
begin
x := x - 65 ;
x := (x+1) mod 58 ;
x := x +65 ;
Satz2 := satz2 + chr(x);
end
else Satz2 := satz2 + chr(x);
kannst du mir erklären wie das funktioniert, ich verstehe es nämlich nicht
[edit=Sharky]Delphi Tags korrigiert. Mfg, Sharky[/edit]