Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.511 Beiträge
 
Delphi 5 Professional
 
#2

Re: Zeichen ist Steuerzeichen

  Alt 11. Aug 2006, 14:48
Man kann auch Windows fragen, um den Typ eines Zeichens zu ermitteln:
ungetestet reingehackt
Delphi-Quellcode:
  // CharType return values
  C1_UPPER = $0001; // Uppercase
  C1_LOWER = $0002; // Lowercase
  C1_DIGIT = $0004; // Decimal digits
  C1_SPACE = $0008; // Space characters
  C1_PUNCT = $0010; // Punctuation
  C1_CNTRL = $0020; // Control characters
  C1_BLANK = $0040; // Blank characters
  C1_XDIGIT = $0080; // Hexadecimal digits
  C1_ALPHA = $0100; // Any linguistic character: alphabetic, syllabary, or ideographic
  {$EXTERNALSYM C1_UPPER}
  {$EXTERNALSYM C1_LOWER}
  {$EXTERNALSYM C1_DIGIT}
  {$EXTERNALSYM C1_SPACE}
  {$EXTERNALSYM C1_PUNCT}
  {$EXTERNALSYM C1_CNTRL}
  {$EXTERNALSYM C1_BLANK}
  {$EXTERNALSYM C1_XDIGIT}
  {$EXTERNALSYM C1_ALPHA}
function GetCharacterType(CurrChar: Char):WORD;
begin
    GetStringTypeExA(LOCALE_USER_DEFAULT, CT_CTYPE1, @CurrChar, SizeOf(Char), Result);
end;

if (GetCharacterType(...) and C1_CNTRL) = 0 then
   ShowMessage('kein Steuerzeichen');
Andreas
  Mit Zitat antworten Zitat