Also nach ein paar motivierenden Sprüchen und ein paar Rendez-vous mit der
ASCII-Tabelle, bin ich auf folgende Lösung gekommen.
Ich bedanke mich bei allen die mir beigestanden haben.
Delphi-Quellcode:
function TCaeser.GetGeheimtext : string;
var
i : integer;
begin
Result := '';
for i := 1 to length(text) do begin
if ord(text[i]) + key > ord('Z') then
Result:= Result + chr(ord(text[i]) + key - 26)
else
Result := Result + chr(ord(text[i]) + key);
end;
end;