Problem mit FormKeyPress

[Jeopardize]

Hi ich habe ein Problem, der folgende Code funktioniert nicht:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = $31;
VK_2 = $32;
VK_3 = $33;
begin
  case Key of
    VK_1: Mode := 1;
    VK_2: Mode := 2;
    VK_3: Mode := 3;
  end;
end;

Zitat:

[Pascal Fehler] Unit1.pas(87): E2010 Inkompatible Typen: 'Char' und 'Integer'
[Pascal Fehler] Unit1.pas(88): E2010 Inkompatible Typen: 'Char' und 'Integer'
[Pascal Fehler] Unit1.pas(89): E2010 Inkompatible Typen: 'Char' und 'Integer'

(Mode ist ein Integer)

Bestimmt ist es irgendwas einfaches und ich komm nicht drauf^^
danke schonmal für Antworten

[MCXSC]

Versuch mal "Mode1" oder ähnliches, "Mode" selbst ist (glaube ich) doch reserviert?!

(Oder was soll "Mode" sein?)

[Jeopardize]

hm, nein, da kommen noch immer die gleichen Fehler. :(

Mode ist einfach nur ein Integer den ich deklariert habe.
Ich möchte das er bei den Tasten 1,2,3 die ensprechenden Werte hat.

[MCXSC]

Ich hab irgendwie die Vermutung, dass es eher an "Key" und den "VK_X" liegt. Klappt es denn so?

Delphi-Quellcode:

if Key = VK_1 then Mode := 1
else if Key = VK_2 then Mode := 2
else if Key = VK_3 then Mode := 3;

Die VK_X sind ja Char-Werte, Case-Abfragen allerdings für Integer gedacht.

[Jeopardize]

ich habe es mal ausprobiert, ändert nur die Fehler:

Zitat:

[Pascal Fehler] Unit1.pas(86): E2008 Inkompatible Typen
[Pascal Fehler] Unit1.pas(87): E2008 Inkompatible Typen
[Pascal Fehler] Unit1.pas(88): E2008 Inkompatible Typen

[Jeopardize]

okay, habe den Fehler gefunden, man muss anstatt $ # nehmen :wall:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = #31;
VK_2 = #32;
VK_3 = #33;
begin
  case Key of
    VK_1: MMode := 1;
    VK_2: MMode := 2;
    VK_3: MMode := 3;
  end;
end;

[divBy0]

Das geht

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = $31;
VK_2 = $32;
VK_3 = $33;
begin
  case ord(Key) of
    VK_1: Mode := 1;
    VK_2: Mode := 2;
    VK_3: Mode := 3;
  end;
end;

oder das

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = #$31;
VK_2 = #$32;
VK_3 = #$33;
begin
  case Key of
    VK_1: Mode := 1;
    VK_2: Mode := 2;
    VK_3: Mode := 3;
  end;
end;