>>162
Delphiは使った事ないの？

集合型というのがあるから
例えば　数字にマッチする部分をスキップするなら

while p^ in [ '0'..'9'] do inc(p);

みたいに書けばいいよ。