zeichen in einem string speichern

[toredo]

hay,

ich will das wenn man ein zeichen eingibt, dass die dann in einem string gespeichert werden.
eigentlich dachte ich mri das sei etwas vom einfachsten, aber es war doch nicht so leicht...

dann hab ich mir überlegt was ich in der suche eingeben könnte, dann hab ich irgendwann mal keylogger eingegeben und bin auf ein projekt von lukie gestossen.

und da luckie ja einer der besseren coder hier ist, ist der code auch anspruchsvoller, ich will auch keinen so keylogger haben nur en einfache funktion.

hier mal mein code(der leider ned funzt...):

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
ez: string;
begin
ez:=Key;
end;

irgendwie sind die typen incompatibel, aber ich weiss ned wie man die compatibel macht...



mfG toredo

[Dax]

ez := Chr(Key);

[toredo]

hay,

hab ich mich jetzt verdrückt, oder kann es sein, dass wenn man ne F-Taste drückt, dass dann der variable ein buchstabe zugeteilt wird?



mfG toredo

[DGL-luke]

ähm... du solltest dir mal die virtual key-codes zur gemüte führen. Am besten erstellst du dann ein Lookup-array, in etwa so:

const virtualKeys = array[1..$FE] of string = ('LEFT_MOUSE','RIGHT_MOUSE','CANCEL',......) dann kannst dus so machen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var ez: string;
begin
ez := 'VK#' + inttostr(Key) + '=' + virtualKeys[Key];
// Ausgabe bei Key = 1:
// 'VK#1=LEFT_MOUSE'
end;