|
Вопрос # 5 807/ вопрос решён / |
|
Здравствуйте!
как сделать что бы в stringrid, при не заполненых ячейках выдавало сообщение что не все ячейки заполнены, вот я написал код
if StringGrid1.Cells[i, j]='' then
Application.MessageBox('Не все ячейки заполнены',
'Сообщение',MB_ICONQUESTION+MB_OK+MB_TASKMODAL)
else
но тут проблема получается, если заполнены ячейки то выдаёт тоже самое сообщение
 |
Вопрос задал: strannik23 (статус: Посетитель)
Вопрос отправлен: 10 декабря 2011, 20:23
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 11 декабря 2011, 16:50; участников в обсуждении: 3.
|
Drinkenz (статус: 1-ый класс), 10 декабря 2011, 20:33 [#1]:
Тебе нужно ввести переменную типа boolean, которая будет хранить факт присутствия не заполненных ячеек.
|
|
Меньшенин (статус: Посетитель), 10 декабря 2011, 20:36 [#2]:
Привет ))
не может быть...
уточни, пожалуйста, ты ищешь не заполненную хотя бы одну ячейку или все должны быть не заполнены?
если ты хочешь реализовать процедуру проверки заполнения грида
стоит ввести переменную Boolean
b := true;
for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
for j := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do
b := b and (StringGrid1.Cells[j,i] = '');
проверяешь пустой ли грид (весь грид, исключая фиксированные ячейки)
b := false;
for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
for j := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do
b := b or (StringGrid1.Cells[j,i] = '');
проверяешь, есть ли хоть одна пустая ячейка
|
|
|
Меньшенин (статус: Посетитель), 10 декабря 2011, 20:37 [#3]:
гыы
а то, что ты написал - выведет для каждой пустой ячейки по одной ошибке
|
|
|
strannik23 (статус: Посетитель), 10 декабря 2011, 21:24 [#4]:
да я ищу не заполненную хотя бы одну ячейку
|
10 декабря 2011, 22:36: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
|
strannik23 (статус: Посетитель), 11 декабря 2011, 16:30 [#5]:
дак тут он тоже прокручивает все язейки и выдаёт для каждой сообщение, а мне нужно что бы выдало сообщение что не все ячейки заполнены, а если ячейки заполнены то происходило непосредственно решение
|
|
|
strannik23 (статус: Посетитель), 11 декабря 2011, 16:50 [#6]:
for i := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
for j := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do
if (StringGrid1.Cells[j,i] = '') then
begin
Application.MessageBox('Не все ячейки заполнены',
'Сообщение',MB_ICONQUESTION+MB_OK+MB_TASKMODAL);
exit;
end
else
так получилось)
|
11 декабря 2011, 18:58: Статус вопроса изменён на решённый (изменил автор вопроса — strannik23)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
