Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to length(memo1.text) do begin
showmessage(memo1.text[i]+' - '+chr(ord(memo1.text[i])+1));
case text[i] of
#122: memo2.text:=memo2.text+ #97;
#90: memo2.text:=memo2.text+ #65;
#65..#89: memo2.text:=memo2.text+ chr(ord(memo1.text[i])+1);
#97..#121: memo2.text:=memo2.text+ chr(ord(memo1.text[i])+1);
else memo2.text:=memo2.text + Text[i];
end;
end;
end; |
Ich hab ja keine Ahnung, was du mit dem Code genau anstellen willst, aber folgendes ist mir aufgefallen:
Sollte es nicht vielleicht
Memo1.Text heißen? Es würde für mich mehr Sinn machen.
EDIT: Ich glaube, hier wird niemals was gelöscht. Oder wie war das Narses?
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin
