جدا کننده ارقام

[mzjahromi]

این کد همونی هست که آقای خرسندی تحت عنوان Fnc_ReturnNum نوشتند

Function TForm1.StrToInt1(Prm_Str: String): String;

begin

  while Pos(',', Prm_Str) > 0 do

    Delete(Prm_Str, Pos(',', Prm_Str), 1);

 if  ParamStr='' Then

  ParamStr='0'

  StrToInt1 := Prm_Str;

end;