Buchstabenshifter

[benisenis]

Moin,

ich muss für die Schule ein Programm schreiben, in welchem sämtliche Buchstaben in nem Text um 1 verschoben werden!
Sprich: A zu Z ; B zu A; C zu B ; usw.

Ich hab versucht das ganze mit zwei Editfenstern zu realisieren!

Hier der Quelltext:

Delphi-Quellcode:

var
  Form1: TForm1;
  LCaseChars, UCaseChars: array [0..25]of Char;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
for i:=0 to 25 do
begin
UCaseChars[i]:=Char(65+i);
LCaseChars[i]:=Char(97+i);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
edit2.clear;
for i:=1 to length(edit1.text) do
begin
case pos (edit1.text[i], UcaseChars) of
0:edit2.text:= edit2.text+UCaseChars[25];
12..24:edit2.text:=edit2.text+UCaseChars[pos(edit1.text,UCaseChars)-1];
25:Edit2.text:=edit2.text+UCaseChars[0];
end;
begin
case pos (edit1.text[i], LcaseChars) of
0:edit2.text:= edit2.text+LCaseChars[25];
12..24:edit2.text:=edit2.text+LCaseChars[pos(edit1.text,LCaseChars)-1];
25:Edit2.text:=edit2.text+LCaseChars[0];
end;
end;

Mein Problem ist, dass ich bei der Ausgabe nur "Z" bekomme!
Und so langsam hab ich auch keihne Ahnung mehr woran es liegen könnte!


Um Antworten wird gebeten


Gruß

benisenis