Como faço para testar se um campo string é decimal?

[Guest --Fabi --]

Preciso fazer um teste se um campo string possui um valor decimal (0.00)

Como posso fazer isso?

[Progr'amador]

Ola,

seria isso:

function StrIsFloat(const S: string): boolean;
begin
  try
  StrToFloat(S);
  Result := true;
  except
  Result := false;
  end;
end;

Abs. Progr'amador.

[Micheus]

Se estiver sendo utilizado o Delphi7 (e possivelmente superior), também existem funções prontas, na unit SysUtils, que fazerem este teste e que retornam o valor convertido caso válido:

TryStrToBool function

TryStrToCurr function

TryStrToDate function

TryStrToDateTime function

TryStrToFloat function

TryStrToInt function

TryStrToInt64 function

TryStrToTime function

TryFloatToDateTime function

TryFloatToCurr function

Exemplo:

var
  Qtd :Integer;
  PrecoUnit,
  PrecoTotal :Double;
begin
  if TryStrToFloat(Edit2.Text, PrecoUnit) then
  begin
    if TryStrToInt(Edit1.Text, Qtd) then
    begin
      PrecoTotal := Qtd *PrecoUnit;
      ...
    end else
    begin
      Edit1.SetFocus;
      ShowMessage('Valor em Quantidade é inválida');
    end;
  end else
  begin
    Edit2.SetFocus;
    ShowMessage('Preço unitário é inválido');
  end;
end;

Abraços

[Guest --Fabi --]

Muito Obrigada pela resposta... trabalho com Delphi 5 e as duas respostas vão me ser úteis...

Valeu