Einfachere Variablenbezeichnung

[Vielleichtmann]

Hallo,
ich hätte nochmal eine Frage, die sich wahrscheinlich relativ leicht beantworten lässt. Kann man folgenden Code so umstellen, dass das Ergebnis funktioniert?

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
   if key=VK_+strtoint(label1.caption) then ShowMessage('Taste ' + label1.caption + ' gedrückt');
end;

Hintergrund ist, dass ich ein Spiel programmieren will, bei dem im Label1 ein zufälliger Buchstabe angezeigt wird, welcher auf der Tastatur gedrückt werden soll. Man könnte das ganze natürlich über 26 if-Abfragen machen, aber mich interessiert, ob das auch einfacher geht.
Vielleicht weiß ja jemand, wie das funktioniert
Viele Grüße

[theo]

Warum benutzt du nicht OnKeyPress? Da kommt der Buchstabe gleich mit.

[Vielleichtmann]

Warum benutzt du nicht OnKeyPress? Da kommt der Buchstabe gleich mit.

Das löst das Problem insofern nicht, dass ich die gedrückte Taste ja mit der Label1.caption vergleichen will und nicht die Label1.caption zu der gedrückten Taste ändern will.

Edit: Ich merke gerade, dass es doch funktioniert, wenn man einfach eine weitere Variable definiert und diesen Wert dann mit der Label1.caption vergleicht. Danke

[theo]

Aha? Verstehe zwar nur Bahnhof, aber schön wenn es jetzt funktioniert.

[Vielleichtmann]

Aha? Verstehe zwar nur Bahnhof, aber schön wenn es jetzt funktioniert.

Kommt quasi auf's gleiche raus, wie du meintest. Hauptsache OnKeyPress.