Kontrolle eines Codes

[blackfin]

Zitat:

Kannst du mir das mal in Quelltext schreiben?

Wie sollen wir dir ein Stück Quelltext schreiben, wenn wir nicht einmal die Logik kennen, wann ein Code überhaupt gültig ist und wann nicht?
Ist die Vorgabe, die du geschrieben hast:

Zitat:

Leerzeichen, Bindestriche, kaufm. Und, folgende Buchstaben: S K D I E H A B E G D N.

die einzige Logik?
Oder gibt es noch andere prüfungsrelevante Dinge? (Positionen / Kombinationsmöglichkeiten etc.)
Wenn nicht, würde es denke ich schon reichen, in Delphi eine Liste der validen Chars zu erstellen und darauf zu prüfen:

if FChar in ['1'..'8',' ','-','&','S','K','D','I','E','H','A','B','G','D','N'] then