Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Оператор if then [D7, XP]


Страницы:   1 2

lewka-serdceed ©   (2008-05-17 20:05:00) 

Привет!!!
У меня такая проблема с оператором if вот листинг:
for i:=1 to StringGrid1.RowCount do begin
if StringGrid1.Cells[i,1]='' then a:=1 ;
if StringGrid1.Cells[i,1]<>'' then a:=0 end;
if a=1 then begin MessageDlg('Ошибка',mtError, mbOKCancel, 0);end;

при выполнении этого кода всегда не зависимо заполнена ячейка или нет появляется это сообщение. В чем я тут ошибся?


Джо   (2008-05-17 20:11:00) [21]

Вероятно, предполагается такое поведения?
for i:=1 to StringGrid1.RowCount -1do
begin
 if StringGrid1.Cells[i,1]='' then
 begin
   MessageDlg (...);
   Break
 end;
end;


Джо   (2008-05-17 20:09:00) [22]

> [0] lewka-serdceed   (17.05.08 20:05)
> В чем я тут ошибся?

В логике. Ибо после того, как встретилась пустая, может встретиться и непустая.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо