case-Konstrukt vereinfachen - Zahl aus VK_Fx ermitteln

[Dejan Vu]

Na, Gott Sei Dank ist VK_F[x+1] immer gleich VK_Fx + 1, denn wenn sich das mal ändert, oder auf anderen Systemen mal nicht so ist, würde das zu einem wirklich schwer zu findenden Fehler führen.

Ich würde die 'Formel' Key-VK_F1+1 noch in eine separate Funktion packen. Dann ist das noch dokumentiert.

Delphi-Quellcode:

Function VirtualKeyToFunctionNumber (aKey : Cardinal) : Integer;
Begin
  Result := aKey - VK_F1 + 1;
End;

Wie immer: Geschmacksache.