Zeichen ist Steuerzeichen

[igel457]

Überprüfen ob ein Zeichen ein Steuerzeichen ist

Manchmal möchte man überprüfen, ob das Zeichen, das ein User eingegeben hat auch kein Streuerzeichen (Tab, Nach Rechts usw...) ist und vielleicht die gesammte Formatierung durcheinander bringt.

Realisiert wird dies durch folgende einfache Überlegung:
Die meisten Sonderzeichen haben einen ASCii Code kleiner 32. Außerdem liegen zwischen dem Zeichen 127 und 159 noch eine ganze Menge Sonderzeichen. (Siehe Wikipedia: http://de.wikipedia.org/wiki/Steuerzeichen).
Daraus Resultiert folgende, einfache Funktion:

Delphi-Quellcode:

function IsNotSpecialCharacter(AChar:char):boolean;
begin
  result := (AChar > #31) and ((AChar < #127) or (AChar > #159));
end;

Wer will kann auch folgendes verwenden:

Delphi-Quellcode:

function IsNotSpecialCharacter(AChar:char):boolean;
begin
  result := AChar in [#32..#126];
end;

Mit diesem Code kann man erreichen, dass nur "normale" Zeichen, die auf einer Englischen/Amerikanischen Tastatur vorkommen akzeptiert werden.

Wer nur nach Buchstaben prüfen will kann auch folgendes verwenden:

Delphi-Quellcode:

function IsLetter(AChar:char):boolean;
begin
  result := AChar in ['A'..'Z','a'..'z'];
end;

Natürlich kann man diese Funktion noch einfach um Zahlen etc. erweitern.
Die erste Version ist meiner Meinung nach am Besten.

Viel Spaß,
Igel457


Suchbegriffe:
Sonderzeichen, Steuerzeichen, Char, Prüfen Char, Char, Buchstabe, Umlaute, Umlaut, Buchstaben, String

[shmia]

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');