[Lexi]

Есть такая штука:
попробуй.

Function TextToDecimal(VarText : Text[250]) : Decimal

Parameters:
Var Name DataType Subtype Length
VarText Text 250

Return Value: Decimal

Variables:

Name DataType Subtype Length
VarDecimal Decimal
BaseVarDecimal Decimal
DecimalSymbol Text 1


Function TextToDecimal(VarText : Text[250]) : Decimal
BaseVarDecimal := 1.2;
DecimalSymbol := COPYSTR(FORMAT(BaseVarDecimal),2,1);
EVALUATE(VarDecimal,CONVERTSTR(VarText,'.',DecimalSymbol));
EXIT(VarDecimal);

Если не сработает напиши.