Add(Edit,9394968,196,63)
{
 Left=70
 Top=14
 Width=217
 Height=21
 Text="-123a12"
 Alignment=1
}
Add(Button,2002823,119,112)
{
 Left=112
 Top=49
 Width=126
 Height=21
 Caption="Str2Double"
 link(onClick,13631075:doConvert,[])
}
Add(Convertor,13631075,196,112)
{
 Mode=10
 link(onResult,13349435:doMessage,[])
 link(Data,9394968:Text,[])
}
Add(Message,13349435,259,112)
{
}

#pas
//[function Str2Double]
function Str2Double( const S: String ): Double;
var I: Integer;
    M, Pt: Boolean;
    D: Double;
    Ex: Integer;
begin
  Result := 0.0;
  if S = '' then Exit;
  M := FALSE;
  I := 1;
  if S[ 1 ] = '-' then
  begin
    M := TRUE;
    Inc( I );
  end;
  if S[ 1 ] = '+' then Inc( I );  //+добавил Галков
  Pt := FALSE;
  D := 1.0;
  while I <= Length( S ) do
  begin
    case S[ I ] of
    '.': if not Pt then Pt := TRUE else break;
    '0'..'9': if not Pt then
                 Result := Result * 10.0 + Integer( S[ I ] ) - Integer( '0' )
              else
              begin
                D := D * 0.1;
                Result := Result + (Integer( S[ I ] ) - Integer( '0' )) * D;
              end;
    'e', 'E': begin
                Ex := Str2Int( CopyEnd( S, I + 1 ) );
                Result := Result * IntPower( 10.0, Ex );
                break;
              end;
    else break;  //+добавил Галков
    end;
    Inc( I );
  end;
  if M then
    Result := -Result;
end;