String и Integer

[bek@rt]

Вопрос простой: Как проверить, является ли введенное в Edit1 числом?
Но у меня никак не выходит.... можно не проверять , но тогда если не число то выводится оштбка на английском, а я хочу что-б по красивше было!

[Наташка]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,#13,'0'..'9']) then key:=#27;
end;

Создай так обработчик и тебе не нужно будет ничего проверять. Просто пользователь не сможет ввести что-то кроме цифр. Если числа могут быть вещественным добавь точку в множество

[LeoN]

используй
TRY
//Здесь ты пишешь код, в котором может произойти ошибка
EXCEPT
//Если ошибка произошла, то выполнится этот код
END;
- это цитата из библии по Delphi, которую можешь найти на сайте улуба.

[bek@rt]

хм... понял все ... но что значат цифры с решетками?

[LeoN]

цифры - это клавиши цифр, на сколько я понял

[bek@rt]

я тоже понял... что '0' .. '9' это типо что ток клавиши цифр можно нажимать... а вот что за цифпы со решетками?!

ааа.. понял... когда убрал Backspace перестал работать... это другие кнопки просто

а незнаете где эти коды достать, на Enter и т.д.

[itisiam]

Действительно где можно таблицы взять там юникодов etc?,. а то мне тоже надо .......

[Hollander]

Нажатие Enter'a можешь проверять при помощи обработки события KeyDown в твоем Edit'e.
If Key = VK_Enter

[SERG1980]

на Enter #13

[Shuraken]

Сделайте такой простенький примерчик, который будет вам выводить коды клавиш

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Caption := IntToStr(Ord(Key));
end;
и экспериментируйте, а так их можно посмотреть в модуле Windows.pas
{ Virtual Keys, Standard Set }