Как узнать, буква или цифра?

[Dr_Grizzly]

Всем привет! Подскажите, есть Едит, в него попадает либо цифра либо буква, от этого мне нада менять путь по которому пойдет программа, как узнать что попало в Едит?

[Blood_Magic]

Код: Выделить всё

If (Edit1.Text<'0')and(Edit1.Text>'9') then 

[vunder]

Нужно обрабатывать событие OnKeyPress

Код: Выделить всё

procedure TAddEditListColumnForm.eWidthKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key in ['0'..'9'] then
  //цифра
  else
  //другое
end;

[Dr_Grizzly]

OnKeyPress cкорее всего не пойдет, т.к. значения присваиваются в процессе программы.

Есть проблема

Код: Выделить всё

If (Edit1.Text<'0')and(Edit1.Text>'9') then  

Фишка работает, только если заданна цифра или буква отдельно, а у меня попался случай что появилось значение - 2Т, в этом случае прога сказала что цифра, другой случай Т2 - это сказала что буква.
Мне нужно все таки чтоб даже 2Т была буква, а то появляется косяк в программе

[LAngel]

Код: Выделить всё

function isNumber(S: String): boolean;
var
  i: Integer;
begin
  if Length(S) = 0 then Result := False
  else begin
    Result := True;
    for i := 1 to Length(S) do
      Result := Result and (S[i] in ['0'..'9']);
  end;
end;

[LAngel]

Или проще

Код: Выделить всё

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

[Dr_Grizzly]

ВО-О-О-О-О! Вот это тема! Самая что не на есть функция проверки, коротко и просто

[Blood_Magic]

Или проще ]function isNumber(S: String): Boolean;
begin
Result := True;
try StrToInt(S);
except Result := False;
end;
end;[/code]

я бы так сделал:

Код: Выделить всё

function isNumber(S: String): Boolean;
var
  v,c:integer;
begin
  val(s,v,c);
  Result := c=0;
end;

работает быстрее и лишний раз исключение не создаем