Tastencodes und die Fehlermeldung!

[maximi]

Holla!
Ich möchte meinen Code vereinfachen und lege eine Schleife über meine Tastencodes!

Delphi-Quellcode:

for i := 0 to form8.ComboBox1.Items.Count-1 do
begin
  if(GetKeyState(StrToInt('VK_'+form8.bewegungen[i].name)) < 0)then //bewegungen[i].name :String
      ...

Ich bekomme die Fehlermeldung, dass "'VK_'+form8.bewegungen[i].name" kein Integer ist. Was kann ich machen?

Max

[Luckie]

Sorg dafür dass es ein Integer wird. Die virtuellen Tastaturcodes (VK_...) stehen nur für Integer-Konstanten.

[maximi]

Probier ich doch mit strtoint!

[Luckie]

Sehr schön. "VK_..." ist nur leider keine Zahl, zu mindest für mich nicht und für die Funktion StrToInt anscheinend auch nicht.

[maximi]

ja und was soll ich dann machen?

[maximi]

in was soll ich denn "VK_'+form8.bewegungen[i].name" umwandeln?

[andianon]

Code:

StrToInt('VK_'+form8.bewegungen[i].name))

Kurze Zusammenfassung:
'VK_' ist eine Zeichenkette
...[i].name ist eine Zeichenkette

Ergebnis: Die "+"-Verknüpfung zweier Zeichenketten ist wieder eine Zeichenkette. Eine Zeichenkette kannst du nur dann per StrToInt in einen Ganzzahlwert umwandeln, wenn sie auschließlich aus gültigen Zeichen für Ganzzahlen besteht '0'..'9' (was mit '.' passtiert, weiß ich nicht auf dem Stehgreif). Eines ist aber sicher: Du musst die Ergebniszeichenkette mappen oder eine Fallunterscheidung machen, weil es sich bei den Bezeichnungen, z.B. VK_RETURN, nur um die BEZEICHNUNG einer Konstante handelt.

Gruß Andi