AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Sonstiges Delphi Zeichen ist Steuerzeichen

Zeichen ist Steuerzeichen

Ein Thema von igel457 · begonnen am 7. Aug 2006 · letzter Beitrag vom 11. Aug 2006
Antwort Antwort
Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#1

Zeichen ist Steuerzeichen

  Alt 7. Aug 2006, 15:35
Ü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
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat
shmia

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

Re: Zeichen ist Steuerzeichen

  Alt 11. Aug 2006, 15: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
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 13:18 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