Event: Keypress anderer Datentype

[Astat]

Zitat von delphilolo:

JA eine Simple Textverschlüsselung, ich bin noch ein Anfänger deshalb habe ich hier ja gefragt.

Hallo delphilolo,

Delphi-Quellcode:

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
  key := Chr(Ord(key) xor 10);
end;

//-- EDIT  Sample für Encryption und Decryption
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
  //-- Encrypt -- Key = 10
  key := Chr(Ord(key) xor 10);

  //-- Decrypt -- Key = 10
  key := Chr(Ord(key) xor 10);
end;

lg. Astat