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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von ichbins · begonnen am 17. Feb 2006 · letzter Beitrag vom 18. Feb 2006

Vorheriger Beitrag

Nächster Beitrag

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge

Delphi 2005 Personal

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

17. Feb 2006, 18:35

soweit war ich auch schon...

aber ich dachte Delphi hat da vllt eine vordefinierte Funktion.

markieren

Delphi-Quellcode:

			function sinnvoll(c:char):boolean;

const

  worths='abcdefghijklmnopqrstuvwxyzäöüABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ+-_.,;:''#*~´`ß?=)(/&%$§"!°^<>|\}][{³² @€µáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙ';

begin

  result:=pos(c,worths)>0;

end;

//edit: @ und € vergessen