Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#3

Re: Überprüfen ob Char ein vernünftiges Zeichen enthält?

  Alt 17. Feb 2006, 19:35
soweit war ich auch schon...

aber ich dachte Delphi hat da vllt eine vordefinierte Funktion.

Delphi-Quellcode:
function sinnvoll(c:char):boolean;
const
  worths='abcdefghijklmnopqrstuvwxyzäöüABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ+-_.,;:''#*~´`ß?=)(/&%$§"!°^<>|\}][{³² @€µáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙ';
begin
  result:=pos(c,worths)>0;
end;
//edit: @ und € vergessen
//edit2: und das ganze aboschdrofzeugs áé ´

die Zeichentabelle von M$ macht das ja auch irgendwie ?
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates
  Mit Zitat antworten Zitat