Fórum Tem como eu verificar e uma label só tem texto numérico? #239844

function TestaConversao(Texto: String): Boolean;
const numeros = ´0123456789´;
var i: Integer;
begin
  for i:= 1 to Length(Texto) do
    begin
      if pos(Texto[i], numeros) = 0 then
        begin
          Result:= False;
          Exit;
        end;
    end;
  Result:= True;
end;

function TestaConversao2(Texto: String): Boolean;
begin
  try
    StrToInt(Texto);
    Result:= True;
  except
    Result:= False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if TestaConversao(Edit1.text) then
    ShowMessage(´Apenas Números !´)
  else ShowMessage(´Contém outros caracteres !´);

  // teste causando exceção...
  if TestaConversao2(Edit1.text) then
    ShowMessage(´Apenas Números !´)
  else ShowMessage(´Contém outros caracteres !´);
end;