#pas
function isFloat(const s:string; var dt:TData):boolean;
var //i,j:integer;
    float: Double;  //Extended;
    errorPos: Integer;
begin
   Result := false;
   
   Val(s, float, errorPos);
   if errorPos > 0 then Exit;
   Result := True;
   dtReal(dt, float{Str2Double(s)});
end;

Add(Edit,10561734,133,91)
{
 Left=20
 Top=140
 Width=185
 Height=65
 Font=[Times New Roman,36,0,0,204]
 Text=""
 DataType=4
 link(onChange,12984376:doWork1,[])
}
Add(MultiElement,12984376,182,91)
{
 link(onEvent1,10561734:doText2,[(226,97)(226,81)(121,81)(121,104)])
}
BEGIN_SDK
  Add(EditMulti,1990697,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=363
   link(doWork1,3233584:doCompare,[(84,27)(84,55)])
  }
  Add(MultiStrPart,9800471,266,49)
  {
   Char="."
   link(onSplit,9306785:doCopy,[(310,55)(310,79)(261,79)(261,104)])
  }
  Add(Copy,9306785,273,98)
  {
   Position=1
   Count=2
   link(onCopy,139849:doStrCatDlm,[(317,104)(317,128)(254,128)(254,153)])
   link(Str,9800471:Part2,[])
  }
  Add(StrCatDelim,139849,266,147)
  {
   Delimiter="."
   link(onStrCatDlm,1990697:onEvent1,[(341,153)(341,27)])
   link(Str1,9800471:Part1,[])
  }
  Add(StrMask,3233584,147,49)
  {
   Mask=".*"
   link(onFalse,5028023:doWork2,[])
   link(onTrue,2046751:doStrCat,[])
  }
  Add(StrCat,2046751,196,56)
  {
   Str1="0"
   link(onStrCat,5028023:doWork3,[(242,62)])
  }
  Add(HubEx,5028023,238,49)
  {
   link(onEvent,9800471:doSplit,[])
  }
END_SDK