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

[Russon2007]

Есть таблица в StringGrid , в ней внесены данные (по наработке деталей). Каждый месяц я вношу наработку детали програмно (записана формула на ячейке). При достижении срока експлуатации мне выдает ЗАМЕНА или РЕМОНТ даной детали. Теперь вопрос: как мне сделать так чтобы при нажатии на кнопку у меня выбирались значения ЗАМЕНА из StringGrid и выводились в Ворд или Ексель те детали которые должны бать заменены, не плохо былобы сделать при этом заголовок, например „замен деталей”(аналогично сделать процедуру и с ремонтом детали)?

[Russon2007]

И что, никто незнает?

[Serge_Bliznykov]

а что тут знать то?!
перебирайте строчки в цикле. Находите те, где в нужном столбце находится определённый текст. Эти строчки выводите хоть в Word, хоть в Excel.
Что именно у Вас не получается?

[Russon2007]

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

а что тут знать то?!
перебирайте строчки в цикле. Находите те, где в нужном столбце находится определённый текст. Эти строчки выводите хоть в Word, хоть в Excel.
Что именно у Вас не получается?

как грамотно сделать так, что-бы выводились в ворд только те строки, в которых совпал текст при поиске? Заранее благодарен
я имею ввиду програмно...(выборка нужного и вывод в ворд)

[Stilet]

А как ты пробовал?

[Russon2007]

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

А как ты пробовал?

у меня есть таблица 6 столбцов и 40-к строк... в столбце №5 определяется "Замена детали" (забита формула, поставлено условие, когда условие выполняется - выводит слово ЗАМЕНА) ..аналогично и с РЕМОНТ В 6-М столбце.
Для вывода в ворд (выводит все что в StringGrid), а я немогу никак сделать так что-бы выводились только те строки, в которых есть слово "Замена" или "РЕМОНТ".
Я только начинаю программировать и не все получается (((

var
  W, Table: Variant;
  Row, Col, i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid1.RowCount, StringGrid1.ColCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.Visible := True;
end;

[BDA]

Хорошо, что хотя бы ищете код в интернете и пытаетесь "прикрутить".
Сначала "пройдитесь" по всему стринггриду и посчитайте количество строк для вывода (сравниваете strgrid.cells[K,i] c 'ЗАМЕНА', где K - требуемый столбец).
Затем заносите полученное количество W.ActiveDocument.Tables.Add(W.Activ eDocument.Range,количество+1, StringGrid1.ColCount);
(+1 для шапки таблицы)
Затем заносите 0 строку (шапку) в документ, с помощью цикла по строке:

for j := 0 to StringGrid1.ColCount - 1 do
Table.Cell(1, j + 1).Range.Text := StringGrid1.Cells[j, 0];

Затем идете циклом по всем строкам и опять же проверяете условие:

count:=1;
for i := 1 to StringGrid1.RowCount - 1 do
  if strgrid.cells[4,i]='ЗАМЕНА' then
  begin
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(count, j + 1).Range.Text := StringGrid1.Cells[j, i];
    inc(count);
  end;

[Russon2007]

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

Хорошо, что хотя бы ищете код в интернете и пытаетесь "прикрутить".
Сначала "пройдитесь" по всему стринггриду и посчитайте количество строк для вывода (сравниваете strgrid.cells[K,i] c 'ЗАМЕНА', где K - требуемый столбец).
Затем заносите полученное количество W.ActiveDocument.Tables.Add(W.Activ eDocument.Range,количество+1, StringGrid1.ColCount);
(+1 для шапки таблицы)
Затем заносите 0 строку (шапку) в документ, с помощью цикла по строке:

for j := 0 to StringGrid1.ColCount - 1 do
Table.Cell(1, j + 1).Range.Text := StringGrid1.Cells[j, 0];

Затем идете циклом по всем строкам и опять же проверяете условие:

count:=1;
for i := 1 to StringGrid1.RowCount - 1 do
  if strgrid.cells[4,i]='ЗАМЕНА' then
  begin
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(count, j + 1).Range.Text := StringGrid1.Cells[j, i];
    inc(count);
  end;

У меня мало знаний (((( Но я хочу научиться... Я немного понял, но не все... посмотрите, что надо сдесь прописать, плиз...

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

begin

    with StringGrid1 do
      k:=1;
     for i:=1 to StringGrid1.RowCount - 1 - 1 do

   stringgrid1.Cells[8,i]:='Замена';
   stringgrid1.Cells[6,i]:='Ремонт';

    W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,k+1,
    StringGrid1.ColCount);


         for j := 0 to StringGrid1.ColCount - 1 do
Table.Cell(1, j + 1).Range.Text := StringGrid1.Cells[j, 0];

count:=1;
for i := 1 to StringGrid1.RowCount - 1 do
  if (stringgrid1.Cells[8,i]:='ЗАМЕНА') or (stringgrid1.Cells[6,i]:='РЕМОНТ')  then
  begin
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(count, j + 1).Range.Text := StringGrid1.Cells[j, i];
    inc(count);
  end;

  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid1.RowCount, StringGrid1.ColCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблици';
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.Visible := True;
end;

From Stilet: Код попрошу оформлять по правилам спецтегом по кнопке # в редакторе поста!

[Stilet]

if (stringgrid1.Cells[8,i]='ЗАМЕНА') or (stringgrid1.Cells[6,i]='РЕМОНТ')  then

Это для начала.
А вообще нужно приводить тексты ошибок, если хочешь чему-то научиться.

И твой первый цикл полагаю должен выглядеть так:

     for i:=1 to StringGrid1.RowCount - 1 - 1 do begin

   stringgrid1.Cells[8,i]:='Замена';
   stringgrid1.Cells[6,i]:='Ремонт';
end;

Или поясни для чего он тебе

[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);
    
    for j := 0 to ColCount - 1 do
      Table.Cell(1, j + 1).Range.Text := Cells[j, 0];
    
    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 := 'Сетка таблици';
    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;