ich habe aber jetzt erstmal ein anderes Problem gelöst:
wenn ich das berücksichtig habe was ihr mir geraten habt war die Summe der Zahlen immer länger als der text bzw der schlüssel, da 9+5= 14 und dann auch 14 ausgegeben wurde.
Deshalb habe ich nun eine if-schleife eingebaut die verhindert dass zahlen >9 ausgegeben werden.wenn eine Zahl größer 9 ist wird sie minus 10 gerechnet und dann ausgegeben:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
Var
schluessel,text:string;
b,zwischenwert:integer;
begin
text:= Label1.caption;
schluessel:=Label2.caption;
for b:=1 to length(Label1.caption) do
begin
zwischenwert:= ( StrToInt(text[b]) + StrToInt(schluessel[b]));
if zwischenwert > 9
then zwischenwert:= zwischenwert -10;
label3.caption:= label3.caption + inttostr(zwischenwert);
end;
end;
für die entschlüsselung wird dann der verschlüsselte text minus den schlüssel genommen und sollte das ergebnis dann <0 sein wird +10 gerechnet so dürfte ich doch dann wieder auf meinen ausgangstext kommen oder?