Процедура поиска в StringGrid

[Russon2007]

подчистил немного ... )))

[BDA]

Упс, забыл строчку переместить.
Но все равно может не работать, так как у меня-то нет заполненного стринггрида, на котором можно проверить.

procedure TForm10.Button6Click(Sender: TObject);
var
  W, Table: Variant;
  i, j, k: Integer;

begin
  k := 0;
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
      if (Cells[8, i] = 'ЗАМЕНА') or (Cells[6, i] = 'РЕМОНТ') then
        inc(k);  
    W := CreateOleObject('Word.Application');
    W.Documents.Add;
    W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, k + 1, ColCount);
    Table := W.ActiveDocument.Tables.Item(1);
    Table.Style := 'Сетка таблицы';
    for j := 0 to ColCount - 1 do
      Table.Cell(1, j + 1).Range.Text := Cells[j, 0];
    k := 1;
    for i := 1 to RowCount - 1 do
      if (Cells[8, i] = 'ЗАМЕНА') or (Cells[6, i] = 'РЕМОНТ') then
      begin
        for j := 0 to ColCount - 1 do
          Table.Cell(k, j + 1).Range.Text := Cells[j, i];
        inc(k);
      end;
    W.Visible := True;
  end;
end;

[Russon2007]

Сообщение от BDA

Упс, забыл строчку переместить.
Но все равно может не работать, так как у меня-то нет заполненного стринггрида, на котором можно проверить.

procedure TForm10.Button6Click(Sender: TObject);
var
  W, Table: Variant;
  i, j, k: Integer;

begin
  k := 0;
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
      if (Cells[8, i] = 'ЗАМЕНА') or (Cells[6, i] = 'РЕМОНТ') then
        inc(k);  
    W := CreateOleObject('Word.Application');
    W.Documents.Add;
    W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, k + 1, ColCount);
    Table := W.ActiveDocument.Tables.Item(1);
    Table.Style := 'Сетка таблицы';
    for j := 0 to ColCount - 1 do
      Table.Cell(1, j + 1).Range.Text := Cells[j, 0];
    k := 1;
    for i := 1 to RowCount - 1 do
      if (Cells[8, i] = 'ЗАМЕНА') or (Cells[6, i] = 'РЕМОНТ') then
      begin
        for j := 0 to ColCount - 1 do
          Table.Cell(k, j + 1).Range.Text := Cells[j, i];
        inc(k);
      end;
    W.Visible := True;
  end;
end;

Выбивает следующее..

[BDA]

Попробуйте удалить эту строчку (Table.Style := 'Сетка таблицы'; ).
Я никогда не работал с word через ole.
Я надеялся, что ваш код рабочий, и просто добавил требуемое

[Russon2007]

Сообщение от BDA

Попробуйте удалить эту строчку (Table.Style := 'Сетка таблицы'; ).
Я никогда не работал с word через ole.
Я надеялся, что ваш код рабочий, и просто добавил требуемое

Все работает, только в ворд выводит почему-то саму шапку ((( хотя в даных столбиках значения присутствуют...

[Russon2007]

Может еще кто-то подскажет?

[BDA]

Сейчас установил Word 2007, а то с Word 2010 starter не работала программа.
Запустил и проверил.

procedure TForm1.Button1Click(Sender: TObject);
var
  W, Table: OLEVariant;
  i, j, k: Integer;

begin
  k := 0;
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
      if (Cells[1, i] = 'ЗАМЕНА') or (Cells[1, i] = 'РЕМОНТ') then
        inc(k);
    W := CreateOleObject('Word.Application');
    W.Documents.Add;
    W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, k + 1, ColCount);
    Table := W.ActiveDocument.Tables.Item(1);
    Table.Style := 'Сетка таблицы';
    for j := 0 to ColCount - 1 do
      Table.Cell(1, j + 1).Range.Text := Cells[j, 0];
    k := 2;
    for i := 1 to RowCount - 1 do
      if (Cells[1, i] = 'ЗАМЕНА') or (Cells[1, i] = 'РЕМОНТ') then
      begin
        for j := 0 to ColCount - 1 do
          Table.Cell(k, j + 1).Range.Text := Cells[j, i];
        inc(k);
      end;
    W.Visible := True;
  end;
end;

Во-первых, у меня другое расположение надписей ремонт и замена, соответственно, измените на свои.
Во-вторых, k=2 - начальное значение, а не 1.
Кстати, свойство style у меня работает (без него таблица получается без рамки).
Да, не нужно полностью цитировать чужие посты, а то можно и штраф получить

[Russon2007]

Вроде все получилось...

[BDA]

Во-первых, убедительнейшая просьба убрать из вашего поста цитату, т.к. крайне велика возможность получения штрафа.
Во-вторых, если можете, то выложите весь проект в zip-папке, а то "гадать" по картинке я пока не научился

[Russon2007]

СОРИ "BDA", большое тебе спасибо, сразу видно профи по этому делу!!!! я сам накрутил!!! там всего навсего в колонках надо местами поменять надписи... Во дела!!! а я уже и не надеялся что получится... запарелся полностью..))))))[/QUOTE]