Delphi - Помощь студентам

Arassir · 09.11.2008, 21:35

Как написать код для определения правильности ввода данных в таблицу StringGrid

Например чтобы если в ячейке напишут слово, или число с точкой появлялось сообщение о неправильности ввода данных.

Mixasik · 09.11.2008, 22:01

Ну ты каждый символ при событии OnKeyDown проверяй входит ли символ в допустимый диапозон, то есть в ('1'..'2') and(',')? если да то пиши добавь его к ячейке так

Код:

stringgrid1.Cells[stringgrid1.Col, stringgrid1.Row] := stringgrid1.Cells[stringgrid1.Col, stringgrid1.Row] + chr(key);

mihali4 · 09.11.2008, 22:12

Я так понял - вам нужно, чтобы только целые числа можно было вводить?
Тогда обработчике события OnSetEditText используйте проверку содержимого функцией TryStrToInt.

09.11.2008, 21:35	#1
Arassir Форумчанин Регистрация: 23.10.2008 Сообщений: 230	Delphi Как написать код для определения правильности ввода данных в таблицу StringGrid Например чтобы если в ячейке напишут слово, или число с точкой появлялось сообщение о неправильности ввода данных.

09.11.2008, 22:01	#2
Mixasik New Delphi Coder Форумчанин Подтвердите свой е-майл Регистрация: 20.07.2008 Сообщений: 874	Ну ты каждый символ при событии OnKeyDown проверяй входит ли символ в допустимый диапозон, то есть в ('1'..'2') and(',')? если да то пиши добавь его к ячейке так Код: `stringgrid1.Cells[stringgrid1.Col, stringgrid1.Row] := stringgrid1.Cells[stringgrid1.Col, stringgrid1.Row] + chr(key);` Страх это слабость и потому, кто испугался уже побежден.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi	Верчик	Помощь студентам	9	02.03.2009 17:46
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью?	redred	Общие вопросы Delphi	10	11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет?	dagarik	БД в Delphi	7	22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi'	Nemesisking	Компоненты Delphi	7	08.09.2007 03:27
Delphi World 6 Pro (5005 Статей по Delphi)	CoreFox	Свободное общение	3	23.05.2007 10:43

09.11.2008, 22:12	#3
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Я так понял - вам нужно, чтобы только целые числа можно было вводить? Тогда обработчике события OnSetEditText используйте проверку содержимого функцией TryStrToInt.