Question

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

比如str:='1,2,3,4,5';这样的字符串就返回true，

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sl1:TStringList;
  i,j:Integer;
  str,str_temp:string;
  sf_:Boolean;//是否由数字跟逗号组成
   begin
   sl1:=TStringList.Create;
   sf_:=False;
   for i:=0 to 9 do
   begin
     sl1.Add(IntToStr(i));
   end;
   sl1.add(',');
   str:=Edit1.Text;
   for i:=1 to Length(str) do
   begin
    str_temp:=Copy(str,i,1);
    for j:=0 to sl1.Count-1 do
    begin
      if sl1.Strings[j]=str_temp then
      begin
       sf_:=True;
       Break;
      end
      else sf_:=False;
    end;
   end;
   sl1.Free;
   if sf_=False then
   ShowMessage('该字符串不由数字跟逗号组成');
end;