1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
  Form1:TForm1;
  Walze1 : Array[1..78] of String = 'Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' , 'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' , 'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' , 'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' , 'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' , 'M','Y','26');

implementation

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar: Char; 
      CharPosWalze1 : Integer;
      KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Überprüfung des Tastendrucks im 1.Memofeld}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  CharPosWalze1 := CharPosWalze1 + 3;
  if CharPosWalze1>76 then CharPosWalze1 := 1;
 end;
 {Kodierung nach Tastendruck und Überprüfung bei 'A'..'Z'}
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Ausgabe des kodierten Buchstaben oder des nichtkodierten Zeichens}
end;

end.					

1:

EingabeChar := Chr(StrToInt(Walze1[CharPosWalze1-2]));					

1:

EingabeChar := Chr(StrToInt(Walze1[1])); { bedeutet EingabeChar := Chr(StrToInt(Walze1['Q'])) }					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

var
  Form1:TForm1;
  CharPosWalze1 : Integer;
  Walze1 : Array[1..78] of String = ('Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' ,
                                     'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' ,
                                     'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' ,
                                     'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' ,
                                     'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' ,
                                     'M','Y','26');

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar : Char;
    KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
  CharPosWalze1 := CharPosWalze1 + 3;
  {Die Walzen dreht sich um einen Buchstaben weiter}
  if CharPosWalze1>78 then CharPosWalze1 := 3;
  {Nach 26 walzendrehungen ist die Walze wieder am Anfang}
 end;
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CharPosWalze1 := 3;
end;

end.					

1:

EingabeChar:=Walze[1][1];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

var
  Form1:TForm1;
  Walze1 : Array[1..52] of Char = ('Q','N' , 'W','T' , 'E','B' , 'R','H' , 'T','P' ,
                                     'Z','V' , 'U','D' , 'I','J' , 'O','R' , 'P','X' ,
                                     'A','T' , 'S','L' , 'D','M' , 'F','Z' , 'G','A' ,
                                     'H','G' , 'J','O' , 'K','U' , 'L','C' , 'Y','I' ,
                                     'X','O' , 'C','W' , 'V','E' , 'B','K' , 'N','S' ,
                                     'M','Y');

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar : Char;
    KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  Insert(,,);
  Delete(,,);
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
 end;
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

end.					

1:
2:

Insert(Copy(text,1,2),text,Length(text)+1);
Delete(text,Length(text)-1,2);					

1:
2:
3:

Walze1 : Array[1..78] of String = ('Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' , 'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' , 'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' , 'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' , 'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' , 'M','Y','26');
. . .
EingabeChar := Walze1[1][1];					

1:
2:
3:
4:
5:

Walze1 : Array[1..52] of Char = ('Q','N' , 'W','T' , 'E','B' , 'R','H' , 'T','P' , 'Z','V' , 'U','D' , 'I','J' , 'O','R' , 'P','X' , 'A','T' , 'S','L' , 'D','M' , 'F','Z' , 'G','A' , 'H','G' , 'J','O' , 'K','U' , 'L','C' , 'Y','I' , 'X','O' , 'C','W' , 'V','E' , 'B','K' , 'N','S' , 'M','Y');
. . .
EingabeChar := Walze1[1][1];
Delete(Walze1, die ersten beiden Stellen des Strings Walze1, 2); 
Insert(die ersten beiden Stellen des Strings Walze1, Walze1, am Ende des Strings Walze1; d.h. Stelle 53 und 54 gibt es noch nicht, da der String Walze1 nur 52 Stellen hat);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

var
  Form1 : TForm1;
  i : Integer;
  KodierterText, Walze1 : String;

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender : TObject; var Taste : Char);
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 if Taste in ['A'..'Z'] then begin
  KodierterText := KodierterText + Walze1[1];
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
  Insert(Copy(Walze1,1,2), Walze1, Length(Walze1)+1);
  Delete(Walze1, 1, 2);
  {Die ersten beiden Buchstaben der Walze werden an das Walzenende versetzt}
 end;
 case Taste of
  ' ', #13 : KodierterText := KodierterText + Taste;
  #8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];
 end;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
 KodierterText := '';
 Walze1 := 'QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY';
end;

end.					

1:
2:
3:
4:
5:

with memo2 do
  begin
     SelStart := Length(Text);
     SendMessage(memo2.Handle,EM_Scrollcaret,0,0);
  end;					

1:

#8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];					

1:
2:

' ', #13 : KodierterText := KodierterText + Taste;
  #8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];					

1:
2:

#13: kodierter_text:=kodierter_text+#13#10;
#8: Delete(kodierter_text,Length(kodierter_text),1);					

1:
2:

Insert(Copy(Walze1,1,2), Walze1, Length(Walze1)+1); 
Delete(Walze1, 1, 2);					

1:
2:
3:
4:
5:
6:
7:

#8:
  if(KodierterText <> '') then
    begin
      delete(KodierterText,length(KodierterText),1);
      Walze1 := copy(Walze1,length(Walze1)-1,2) + Walze1;
      delete(Walze1,length(Walze1)-1,2);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

const
  Walze1 : string  = 'QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY';
var
  cText  : string  = '';
  wPos   : integer = 1;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key in['a'..'z','A'..'Z',#13,#10,#32,#8]) then
    begin
      Key := UpCase(Key);

      case Key of
        'A'..'Z':
          begin
            cText := cText + Walze1[wPos];
            if(wPos = length(Walze1) - 1) then wPos := 1
              else inc(wPos,2);
          end;
        #13,#10,#32:
          cText := cText + Key;
        #8:
          if(cText <> '') then
            begin
              delete(cText,length(cText),1);

              if(wPos = 1) then wPos := length(Walze1) - 1
                else dec(wPos,2);
            end;
      end;

      Memo2.Lines.Text := cText;
    end
  else
    Key := #0;
end;