So , hab hier mal was zusammengescjustert was funktionieren sollte.
Delphi-Quellcode:
program Geheimsprache2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Satz, Satz2: String; x,i: Integer;
begin
Writeln('Gib einen Satz ein');
Readln(Satz);
for i :=1 to length(satz) do
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);
end;
Writeln(Satz2:1);
Readln;
end.
edit : Umlaute funktionieren aber nicht !
edit2 : @thunderchild : vergess ich immer wieder das mit den strings
