маска edit (принимать только integer)

← →
stalk001 (2004-11-29 20:39) [0]

нужно чтобы в edit текст записывалось только числовой тип или как определить что введенна буква
мне просто нужно создать масив з буквами но не ["a".."z"]-это все символы а только буквы???
это все что нужно дальше уже pos и тд //дальше я знаю
..а как масив просто букв зделать???

← →
YurikGL © (2004-11-29 20:49) [1]

проще всего maskedit пользвать ИМХО.
Можно обрабатывать onKeyPress и смотреть какая клавиша нажата.

← →
Davinchi © (2004-11-29 20:53) [2]

а еще в RxLib есть замечательные компоненты TCalcEdit and TCurrencyEdit1

← →
GanibalLector © (2004-11-29 23:05) [3]

procedure TForm3.Edit2Change(Sender: TObject);
begin
if edit2.text<>"" then
try
strtoint(edit2.text);
old2:=edit2.text;
except
edit2.text:=old2;
edit2.SelStart:=length(edit2.text);
edit2.seltext:="";end;
end;

← →
GuAV © (2004-11-29 23:12) [4]

stalk001 (29.11.04 20:39)
нужно чтобы в edit текст записывалось только числовой тип

ES_NUMBER

← →
GanibalLector © (2004-11-29 23:17) [5]

2 GuAV
Что есть ES_NUMBER?Засвети пример...и еще,а как на счет float?

← →
Yanis © (2004-11-29 23:24) [6]

Что то типа:

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

← →
GuAV © (2004-11-29 23:31) [7]

procedure TForm1.Button1Click(Sender: TObject); var h: THandle; begin h := Edit1.Handle; SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) xor ES_NUMBER); end;

Кстати,
http://delphimaster.net/view/1-1101363417/

← →
GrayFace © (2004-11-30 06:05) [8]

Yanis © (29.11.04 23:24) [6]
if not (key in ["0".."9",".",","]) then
Key := #0;
if not (key in ["0".."9",".",DecimalSeparator,ThousandSeparator,"e"]) then Key := #0;
А если только целые, то if not (key in ["0".."9",ThousandSeparator]) then Key := #0;

GuAV © (29.11.04 23:31) [7]
SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) xor ES_NUMBER);
Все-таки лучше and not, а то захочит человек два раза подряд сделать Edit числовым, и ...

Yanis © (29.11.04 23:24) [6]
if not (key in ["0".."9",".",","]) then
Key := #0;
if not (key in ["0".."9",".",DecimalSeparator,ThousandSeparator,"e","+","-"]) then Key := #0;
А если только целые, то if not (key in ["0".."9",ThousandSeparator,"+","-"]) then Key := #0;

GuAV © (29.11.04 23:31) [7]
SetWindowLong(h, GWL_STYLE, GetWindowLong(h, GWL_STYLE) xor ES_NUMBER);
Все-таки лучше and not, а то захочит человек два раза подряд сделать Edit числовым, и ...

Ой. Найдите 2 отличия между [10] и [8].

← →
Leonid Troyanovsky (2004-12-03 14:43) [12]

> GrayFace © (03.12.04 14:18) [11]
> Ой. Найдите 2 отличия между [10] и [8].

А.. тест на внимательность.
Изволь - первое:

> GrayFace © (30.11.04 06:05) [8]
> GrayFace © (03.12.04 14:16) [10]

Второе: первое оригинал, а второе - копия (с дефектами).

--
С уважением, LVT.

маска edit (принимать только integer) Найти похожие ветки