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