Ah, mir ist aufgefallen, was mein Fehler war.. Ich habe den Quelltext jetzt ein wenig überarbeitet, sodass folgendes entstanden ist:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var T, TN : String;
Z : Integer;
begin
T := Edit2.Text; // T = Verschlüsselter Text, der entschlüsselt werden soll
Z := 7; // Z = Wert, um den der Buchstabe verschoben wird
C.B(TN,T,Z); // C = Klasse TCaesar (Global deklariert)
Edit3.Text := TN; // TN = Neuer, entschlüsselter Text
end;
Und für die Methode:
Delphi-Quellcode:
Procedure TCaesar.B (Var T2 : String; T : String; Z : Integer);
Var
P, Code : Integer; // P = Länge des Wortes, Code = Verschlüsselungscode
B : String; // B = Buchstabe des Wortes
B2 : Char; // B2 = Verschobener Buchstabe
Begin
For P := 1 to Length(T) Do
Begin
B := Copy(T,P,1);
Code := ORD(B[1]);
Code := Code + Z;
If (Code < 122) Then
Code := Code - 26;
B2 := Char(Code);
T2 := T2 + B2;
End;
End;
Nun entschlüsselt er auch, jedoch wird nicht das entschlüsselt, was entschlüsselt werden soll. Er gibt nicht den Ausgangsbegriff wieder raus, sondern etwas völlig anderes. Aus "ttt" wird "MMM".