Тема: Из Word в бд
Показать сообщение отдельно
  #3  
Старый 07.05.2013, 20:06
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Ну в StringGrid можно тоже довольно успешно редактировать данные. Но там нет метода удаления строки, потому придется это дело ручками реализовать.
Первый этап - импорт данных вы сделали, осталось только эти данные подправить. Делаете в цикле по всем строкам StringGrid обход. Вот примерный код как будет выглядеть удаление строк если ячейка пуста:
Код:
procedure TForm1.Button2Click(Sender: TObject);
Var Row,Col,R: Integer;
begin
 for Row := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows
 do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do if StringGrid1.Cells[Col,Row] = ''
       then begin
            for R := Row + 1 to StringGrid1.RowCount - 1
            do begin
               StringGrid1.Rows[R-1] := StringGrid1.Rows[R];
               StringGrid1.Rows[R].Clear;
               end;
            Break;
            end;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием