Aaalso das ganze funktionier mittlerweile ganz gut,
bloß geht das "if klartext[i] in alphabet then" nicht.
gibts da eine alternative? vielleicht eine, die meine variable alphabet von oben beeinhaltet?
die hier:
Delphi-Quellcode:
constructor TCaesar.Create;
var i:Char;
begin
Alph:=' ';
for i:= 'a' to 'z' do begin
Alph:=Alph+i;
Alph:=Alph+Alph;
end;
inherited Create;
end;
Die variable besteht ja quasi zweimal aus dem alphabet, aber ich krieg es nicht hin, dass die encode funktion irgendwie überprüft, ob der buchstabe der reingeht auch in dieser variable vorkommt!
ich hatte schon überlegt das ganze in einer schleife laufen zu lassen und dann halt jeden buchstaben einzeln über den index anszusprechen und zu vergleichen.
aber das geht irgendwie nicht, weil ich wollte das mit "if klartext[i] = alphabet[i]" machen, aber dann guckt der ja nicht alle buchstaben durch.
Ich hab das auch schon mit "if klartext[i] = alphabet[1] or alphabet [2].... or alphabet[26]" probiert, aber das geht scheinbar auch nicht, also syntaktisch.
fällt euch da was ein?
und "AnsiLowerCase" geht auch nicht, hab' jetzt UpCase genommen.
muss ich dann in Encode noch was ändern?
danke schonmal für eure ganze hilfe! (: