Fórum String X Integer? #216358

var
  x:string;
  y:integer;
  letra:boolean;
begin
  letra := false;
  x := trim (edit1.text);
  try
    y := strtoint(x);
  except
    letra := true;
  end;
  if letra = false then
    begin
      showmessage(´Foi digitado números´);
    end
  else
    begin
      showmessage(´Foi digitado letras´);
    end;

var
  num: Integer;
begin
  if TryIntToStr(Edit1.Text, num) then
    ShowMesage(´Digitou número, o número é: ´ + IntToStr(num))
  else
    ShowMessage(´Digitou Texto: "´ + Edit1.Text + ´"´);
end;