Delphi如何判断一个字符串是否是由数字和逗号组成

Question

function IsYourStr(const S:string):Boolean;
var
  I:Integer;
begin
  Result:=True;
  for I := 1 to Length(S) do
    if not (S[I] in ['0'..'9',',']) then
    begin
      Result:=False;
      Break;
    end;
end;

Answer 1

Function StrOK(S:string):boolean;
var I:integer;
    T:boolean;
begin
  T:=True;
  result:=False;
  for I:=1 to Length(S) do
  begin
    if not ((Ord(S[i])>=46) and (Ord(S[i])<=57) and (Ord(S[i])<>47)) then T:=False;
  end;
  result:=T;
end;