Zitat von
Gambit:
gute Idee, aber ich glaube den Swiss-Code kann ich doch nicht nehmen weil er nur Buchstaben berücksichtigt und Zahlen außen vor läßt. Mit der "Der Pate 2" hätte ich dann wiederum Probleme, du weißt ja, was ich meine Lutz...
Gambit
Kein Problem, einfach die Funktion "IsCharAlpha(S[startpos])" durch eine Eigene ersetzen, z.B.:
Delphi-Quellcode:
Function IsCharAlpha2(const mychar : string) : boolean;
const
alphachar = 'abcd....xyz123...90';
begin
result := (Pos(lowercase(mychar),alphachar)>0);
end;
wobei 'alphachar' 'ne Stringkonstante ist, in der Du alle Buchstaben, Zahlen, usw... hintereinander auslistest, welche Du als Buchstabe interpretiert haben willst.
Kommen wir der Sache näher
MfG
Lutz