про Tаble1 - работаем с ячейками таблицы

10.08.2008, 21:41. **Показов** 855. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Есть таблица Table1 состоящая из 8 столбцов с 40 заполненными записями.
нажимаем на кнопку 'проверить'.
Начинается проверка на пустые(незаполненные ячейки)
если ячейка пуста, то 'пустота' заменяется слово-сочетанием
'нет данных'
после успешного завершения проверки. выводится сообщение
showmessage('Okey');

@Willys · 14.08.2008, 16:25

Код

table1.Open;
while not table1.Eof do begin
  for I := 0 to 7 do
    if table1.Fields[I].IsNull then begin
      table1.Edit;
      table1.Fields[I].AsString := 'net dannyh'
      table1.Post;
      end;
  table1.Next;
  end;
table1.Close;

DevelopeR
		1
	про Tаble1 - работаем с ячейками таблицы 10.08.2008, 21:41. Показов 855. Ответов 1 Метки нет (Все метки) Есть таблица Table1 состоящая из 8 столбцов с 40 заполненными записями. нажимаем на кнопку 'проверить'. Начинается проверка на пустые(незаполненные ячейки) если ячейка пуста, то 'пустота' заменяется слово-сочетанием 'нет данных' после успешного завершения проверки. выводится сообщение showmessage('Okey');

	14.08.2008, 16:25