как узнать какой тип символа вводится в едит?

[TotKtoNado]

как узнать какой тип символа вводится в едит?

[Smitt&Wesson]

В смысле? Кодировка? Или числовой - символьный?
По-конретнее, если можно.

[TotKtoNado]

Сообщение от Smitt&Wesson

В смысле? Кодировка? Или числовой - символьный?
По-конретнее, если можно.

числовой//

[Smitt&Wesson]

Вообще-то тип в Эдите AnsiString (в Delphi не силён, утверждать не берусь). Кодировка ASCII (возможно расширенная). Если нужно из ASCII получить "чистый" числовой тип можно вычесть из него 0x30h. Ну, или через приведение типов.
Для C++ скажу, можно использовать конструцию

try 
{}
catch{};

В большинстве случаев спасает.

[TotKtoNado]

Сообщение от Smitt&Wesson

Вообще-то тип в Эдите AnsiString (в Delphi не силён, утверждать не берусь). Кодировка ASCII (возможно расширенная). Если нужно из ASCII получить "чистый" числовой тип можно вычесть из него 0.30h. Ну, или через приведение типов.
Для C++ скажу, можно использовать конструцию

try 
{}
catch{};

В большинстве случаев спасает.

я имею ввиду если пользователь введет букву или пробел то выскачит ошибка что тут не должна буква
вобщем надо чтоб пользователь вводил только числа

слушай а может попробовать написать код при редактирования едита
тогда пользователь не будет успевать набирать букву тут как тут выскачит ошибка

тока событие какое возникает при редактировании?

или такой код в интернете нашел

if    NOT (Key in ('0'..'9', #8, #13))
    OR (StrToInt (Edit1.Text + Key) < LowLimit)
    OR (StrToInt (Edit1.Text + Key) > HighLimit)
    then
    begin
      Key := #0;
      MessageBeep (MB_OK);

ругаеться что то Checking project dependencies...
[DCC Error] UnitDobRashod.pas(95): E2029 ')' expected but '..' found

[Vova777]

Сообщение от TotKtoNado

как узнать какой тип символа вводится в едит?

Скажи точнее, ты хочешь чтобы пользователь мог вводить только числа и все? Я тебе могу фрагмент кода выдать.

[TotKtoNado]

Сообщение от Vova777

Скажи точнее, ты хочешь чтобы пользователь мог вводить только числа и все? Я тебе могу фрагмент кода выдать.

да////////

[Vova777]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  #8,'0'..'9': ; // цифры и <Backspace>
  '.': // разделитель целой и дробной частей числа
  begin
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); 
                           // запрет ввода второго разделителя
  end;
  else // остальные символы запрещены
    Key := Chr(0);
end;
end;

[TotKtoNado]

Сообщение от Vova777

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  #8,'0'..'9': ; // цифры и <Backspace>
  '.': // разделитель целой и дробной частей числа
  begin
    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); 
                           // запрет ввода второго разделителя
  end;
  else // остальные символы запрещены
    Key := Chr(0);
end;
end;

ага спасибо