Zitat von
braingrenade:
So , hab hier mal was zusammengescjustert was funktionieren sollte.
Warum machst du das denn so:
Zitat:
Delphi-Quellcode:
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);
Schau dir doch bitte mal den Ansatz von Thunderchild an. Mit
case kannst du die gewünschten Zeichen (auch die, die speziell bearbeitet werden sollen) doch bequem angeben. Dann ließen sich auch die Umlaute entsprechend berücksichtigen.
@Tidus: Das selbe gilt für dich.
@BungeeBug: Dann liefere aber auch eine Erklärung dazu, denn
IMHO muss man seine Lösung auch verteidigen können. Und wenn Tidus bereits mit den o.g. Codezeilen von braingrenade Probleme hat, dann wird ihn ein fertiges Programm, bei dem er nicht eine Zeile selbst geschrieben hat, erst recht in Schwierigkeiten bringen.
