Kannst du das Problem nicht andersherum lösen?
Also in Delphi7 das nachbilden, was eben in Delphi2010 jetzt anders ist...
Delphi-Quellcode:
{$IfDef VER150}
function CharInSet(Text:Char; Menge:TMenge):boolean;
begin
Result:=(Text in Menge);
end;
{$EndIf}
procedure TForm.ButtonClick(Sender: TObject);
var p:integer;
MsgStr:string;
begin
p:=0;
while (p <= length(MsgStr))
and CharInSet(MsgStr[p],['0'..'9']) do
begin
inc(p);
end;
end;
Die Routinen, die Delphi7 erweitern würde ich dann in eine eigene
Unit auslagern, so dass du das dann nur noch einbinden mußt.