ASCII Code....hat wer ne Liste??

[SimOr]

Hallo mal wieder!!!

Ich wollte mal was programmieren, nämlich ein TImage bewegt sich über die Form....
Mit TKeyDown hats schon ganz gut geklappt, allerdings fehlt noch ne richtung.
hier mal mein bisheriger Source..

Delphi-Quellcode:

var
  Form1: TForm1;
  w: #    //
  s: #    //Hier solen die  
  a: #    //ASCII Codes hin
  d: #    //

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
'w' : ImUfo.top:=ImUfo.top-5;
's' : ImUfo.top:=ImUfo.top+5;
'a' : ImUfo.left:=ImUfo.left-5;
'd' : ImUfo.left:=ImUfo.left+5;
end;
end;

end.

Wie schon im Source geschrieben, da SOLLEN die codes hin, habe aber im netz keine Liste/Tabelle gefunden, auch die dp suche hat nix gnützt :wall:

Falls wer ne Liste/Tabelle oder nen guten Link hat....oder mir die codes für die cursortasten sagen kann.....
feel free to post

[Sanchez]

Google ist dein Freund
http://www.torsten-horn.de/techdocs/ascii.htm :-D

[SirThornberry]

von was brauchst du den Ascii-Code. Von "w" und "s"...?? wenn du ne liste der Ascii Codes brauchst schreib dir doch einfach ne schleife von 0 bist 255 und lass die zeischen dann aufn Drucker ausgeben

[Christian Seehase]

Moin SimOr,

da kannst Du mal in der Hilfe unter "Virtuelle Tastencodes" nachschauen.

[SimOr]

danke!
Naja, von schleifen versteh ich noch nix, und die suche bei google hat nur "SMS SIEMENS NOKIA ASCII CODE BILDER - 0190...."ergeben......falsch gesucht O_o ^^.
bis dann

P.S.
Kannst du mir vielleicht mal aufschreiben wie so ne schleife denn aussehen würde????

Cya :mrgreen:

[heiopei]

Hallo,
also so weit ich mich erinnere geht das mit "ord".
Etwa so:
if Key = ord(s) then
blablabla
else
blablabla

tschüsss,
heiopei

[SimOr]

Thx!

Ich habe gerade versucht das ganze zu compilern, aber er meldet mir beharrlich einen fehler bei der

Delphi-Quellcode:

var
Form1: TForm1;
a : #97

sektion
ich habe auch schon probiert, das zu ändern wie mir der debugger das vorschlägt, aber es will einfach nicht funzen...es läuft darauf hinaus das er sagt :"Inkompatible Typen: 'Word' und 'Char'


kann mir jemand helfen??

[SirThornberry]

Delphi-Quellcode:

var ausgabe: String;
begin
  ausgabe := '';
  for count := 0 to 255 do
  begin
    ausgabe := ausgabe + char(count);
  end;

Danach sind in ausgabe alle Zeischen dies gibt enthalten

und mit ord('w') oder ord('s') bekommst du den jeweiligen Asciicode

[Christian Seehase]

Moin SimOr,

was hattest Du denn mit

a : #97;

vor?

Wenn dann

a : char = #97;

[SimOr]

Ich bin das ganze ding falsch angegangen...ich wollte eben die tasten wsad benutzen um ein image oben unten links rechts zu steuern....das mit den var(hätte es geklappt) waäre glaub ich ziemlich unnütz gewesen!!!
Und jetzt weiß ich nicht wie ich das mit keydown machen soll....naja, vielleicht gebt ihr mir NOCHMAL hilfestellung^^

bis denne

[Christian Seehase]

Moin SimOr,

nimm' Deine Lösung aus Deinem Eingangsposting, und ändere 'w' in ord('W') usw. (Wichtig: Es muss jeweils der Grossbuchstabe sein).

[SirThornberry]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if word = VkKeyScan('a') then
 // oder mit Pfeiltasten
 if word = VK_LEFT then