ok dann mal los ...
also erstmal hab ich gekuck welche Zahlenwerte (das was ord zuückgibt) die buchstaben A bis Z und a bis Z haben , das A hat den wert 65 und das z den wert 122 .
Hier prüfe ich ob der wert des Buchstabens zwischen 65 und 122 ist .
Delphi-Quellcode:
if (x >= 65) and (x<=122) then
begin
Ist er es nicht wird er einfach so übernommen sodass z.b. ein leerzeichen ein leerzeichen bleibt
else Satz2 := satz2 + chr(x);
Da das normale allphabet bei 1 (hier halt 0) anfängt nehm ich x minus 65
x := x - 65 ;
So, hier nehme ich x plus eins (kannst auch mal ne andere beliebige zahl einsetzten funzt auch)
und das mod 58 beiwirkt das wenn ich zum bsp 58 + 1 = 59 habe , das aber zu groß ist , x = 1 wird, d.h. mod gibt mir immer den rest einer division. (58 ist die anzahl der Buchstaben)
x := (x+1) mod 58 ;
Hier wird x wieder plus 65 genommen so das es wieder in den
ascii-code passt und dann in satz2 gespeichert
Delphi-Quellcode:
x := x +65 ;
Satz2 := satz2 + chr(x);