Fórum Conversão de String para Float #347202

VAR VALOR : Real
BEGIN
    VSTRING := ´0000000001871´
    VALOR := TRANSFORMA(VSTRING)
   { //Aqui o valor da variável  fica 0 (Zero)
   }
END

function TForm.Transforma(S: string; D: Integer): Real;
// S: string passada para converter.
// D: qtde de decimais... se não informado default são duas.
var x: string;
    j: integer;
    flag : Boolean;
    resp: Real;
    V : String;
begin

    Flag := False;
    V :=´´;
    //For para retirar os ´0´ (zeros) antes do valor
    For j := 1 to length(S) do
       if (copy(s,j,1) <> ´0´) or Flag Then
       Begin
          V := V + copy(s,j,1);
          Flag := True;
       end;
    x:= copy(V,1,(length(V)-D)) +  ´,´ +  copy(V,(length(V)-(D-1)),D);
    resp := StrToFloat(x);
    // Aqui dá certo o valor da variavel RESP = 18,71
    Result := resp;
end;