Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Вниз
маска 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 числовым, и ...
← →
GuAV © (2004-11-30 14:48) [9]GrayFace © (30.11.04 6:05) [8]
Тогда лучше or.
Я именнот так и сделал специально - toggle ES_UMBER.
← →
GrayFace © (2004-12-03 14:16) [10]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 числовым, и ...
← →
GrayFace © (2004-12-03 14:18) [11]Ой. Найдите 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.05 c