AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit Key

Ein Thema von SunSet · begonnen am 6. Jun 2010 · letzter Beitrag vom 6. Jun 2010
Antwort Antwort
SunSet

Registriert seit: 1. Mär 2010
42 Beiträge
 
Delphi 7 Enterprise
 
#1

Problem mit Key

  Alt 6. Jun 2010, 17:41
Tagchen,
ich möchte eine Tastaturabfrage machen, was ja eigentlich nicht schwer ist. Da ich aber auf etliche Zeilen Code verzichten wollte dachte ich mir das in einer zählscheife zu machen und mit ascii-codes zu arbeiten. Mein Code sieht folgendermaßen aus:
PHP-Quellcode:
for i := 97 to 122 do begin
  buchstabe := char(i);
  if key = ord(i) then begin
    Pruefen(buchstabe);
  end;
end;
Prufen() ist eine Prozedur die ich zuvor geschrieben habe, welche aber nichts mit meinem Problem zu tun hat. Ich möchte auf Kleinbuchstaben prüfen, wenn ich jedoch auf das 'a' meiner tastatur drücke kommt immer ein großes a (habe die Ausgabe geprüft und es war groß, obwohl die feststelltaste nicht aktiviert war). Muss ich da irgendetwas umstellen oder warum sind die Zeichen alle groß? Oder liegt es vielleicht am Syntax?
Gruß, Sunset
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Problem mit Key

  Alt 6. Jun 2010, 18:08
Wäre etwas wie
if key in ['a'..'z'] then ... nicht einfacher ?!?
Michael Kübler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz