procedure TForm1.Button1Click(Sender: TObject);
var
a, c, b:Integer;
d:string;
begin
d := Edit2.text;
for c := 1 to Length(Edit1.Text) do
begin
a := Ord(Edit1.Text[c]);
a := a ;
Label1.caption := label1.caption + Chr(a);
end;
Edit1.Text := '';
button1.Hide;
button2.Show;
Hallo Erstmal
,
Ich hab folgendes Problem unzwar will Ich durch Eingabe in das Edit2 feld Mit einem Buchstaben den Schlüssel Definieren...
So wollte ich das machen:
1. Var d nimmt den Buchstaben aus Edit 2
2. Wandelt den Buchstaben in eine Nummer (Ord funktion)
3. Dann wird a + diese Nummer
4. Und in Label 1 wird dann Die verschlüsselte version angezeigt.
Ich krieg das aber irgendwie nicht hin... Ich hoffe ihr könnt mir helfen
Danke im vorraus