Fórum Problema na conversão de texto para float #314357

  TFormula = class(TObject)
  private
    FFormula: String;
    FResultado: String;
    procedure SetFormula(const Value: String);
  public
    property Formula: String read FFormula write SetFormula;
    property Resultado: String read FResultado;
  function ParseInput(LineData: string): Boolean;
  end;

{ TFormula }

function TFormula.ParseInput(LineData: string): Boolean;
var ValidChars: set of Char;
    I, N: SmallInt;
begin
  ValidChars := [´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´,´,´,´+´];
  N := Length(LineData);
  Result:= True;
for I := 1 to N do
  begin
    if not (LineData[I] in ValidChars) then
    begin
      Result := False;
      Break;
    end;
  end;
end;

procedure TFormula.SetFormula(const Value: String);
var I, iPos, iLength: Integer;
ClearLine: string;
    xValue: Double;// Valor numérico
    sValue: string;// Parte da formula com um valor "válido"

begin

  FFormula  := Value; // "Setar valor ao atributo"
  ClearLine := Value; // Atribuir o valor de entrada a variável "Linha limpa"

  {Verificar se a entrada contém apenas caracteres válidos}

  if ParseInput(Value) then
  begin
iLength := Length(Value); // Pega o comprimento da linha
    iPos := Pos(´+´, ClearLine);
    xValue:= 0;
    while iPos>0 do
    begin
      sValue    := Copy(ClearLine,1,iPos-1);
      xValue    := xValue + StrToFloat(sValue);
      ClearLine:= Copy(ClearLine, iPos+1, iLength);
    iPos   := Pos(´+´, ClearLine);
    end;
    if Length(ClearLine)>0 then
    begin
      xValue:= xValue + StrToFloat(ClearLine);
    end;

    FResultado := FloatToStr(xValue);
  end else
  FResultado := ´Entrada inválida.´;
end;

procedure TForm1.btnCALCULARClick(Sender: TObject);
var Formula: TFormula;
begin
Formula:= TFormula.Create;

  Formula.Formula:= edtFORMULA.Text;
  edtRESULTADO.Text:= Formula.Resultado;

  Formula.Free;
end;