Странный цикл у меня в StringGrid

[artemavd]

Доброй утро! Играюсь тут сижу с циклом подсчета количества одинаковых значений в строке в StringGrid-e. Цикл:

 counter:=0;
 for x1:=8 to Form1.RzStringGrid1.ColCount + 1 do
 begin
  if Form1.RzStringGrid1.Cells[x1,1] <> '' then
  begin
    Inc(counter);
    Form1.RzStringGrid1.Cells[4,1]:=IntToStr(counter)
  end;
 end;

считает количество не пустых ячеек. А если я ему пишу так:

 counter:=0;
 for x1:=8 to Form1.RzStringGrid1.ColCount + 1 do
 begin
  if Form1.RzStringGrid1.Cells[x1,1] = '100' then
  begin
    Inc(counter);
    Form1.RzStringGrid1.Cells[4,1]:=IntToStr(counter)
  end;
 end;

т.е. я хочу, чтобы он мне считал только ячейки с "100", он по-прежнему считает общее количество не пустых ячеек, даже если я в эту строку впишу другое число. Понимаю, что я что-то не то написал. Но что именно?
Для наглядности пример того, что должно получаться во вложении...

[betirsolt]

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

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
index:=1;
progressform.Show;
progressform.Caption:='Поиск совпадений';
progressform.ProgressBar1.Max:=setchik;
 for k := 1 to setchik  do
   begin
     for j := k+1 to  setchik do
      begin
       if stringgrid1.Cells[3,k]=stringgrid1.Cells[3,j] then
       begin
            for I := 1 to 12 do
         begin
           stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,k];
         end;
         index:=index+1;
         for I := 1 to 12 do
         begin
         stringgrid2.Cells[i,index]:=stringgrid1.Cells[i,j];
         end;
         index:=index+1;
       end;
   end;
        progressform.ProgressBar1.Position:=progressform.ProgressBar1.Position+1;
   end;
   progressform.ProgressBar1.Position:=0;
   progressform.Close;
end;

может ты тоже попробуешь сравнить не с '100' а записать число 100 в какую нибудь невидимую ячеку или еще куда то и потом сравнивать две ячейки как у меня

 if stringgrid1.Cells[3,k]=stringgrid1.Cells[3,j] then

не знаю...

[Serge_Bliznykov]

Form1.RzStringGrid1.ColCount + 1

должно быть, разумеется, минус один (Form1.RzStringGrid1.ColCount - 1)

но по сути, второй вариант похож на правильный.
Единственно, я бы вынес запись счётчика в грид за цикл...

я думаю, что ошибка у Вас где-то в другом месте...
p.s. попробуйте кинуть отдельно кнопку и на неё назначить код:

 counter:=0;
 Form1.RzStringGrid1.Cells[4,1]:='n/a';
 for x1:=8 to Form1.RzStringGrid1.ColCount - 1 do
 begin
  if Trim(Form1.RzStringGrid1.Cells[x1,1]) = '100' then
    Inc(counter);
 end;
 Form1.RzStringGrid1.Cells[4,1]:=IntToStr(counter);

и расскажите о получаемых результатах.

[artemavd]

должно быть, разумеется, минус один (Form1.RzStringGrid1.ColCount - 1)

Конечно! Именно так, сейчас правильно считает. Спасибо всем

Маленький нюанс.
Как записать, чтобы в таблицу в колонку под 100 не проставлялось одинаковое значение в весь столбец? Считать то считает, но проставляет в весь столбец, а надо только до последней заполненной строки.

[Serge_Bliznykov]

Как записать, чтобы в таблицу в колонку под 100 не проставлялось одинаковое значение в весь столбец? Считать то считает, но проставляет в весь столбец, а надо только до последней заполненной строки.

так кто ж видит, где и как Вы цикл организовали?!!! Вы же знаете, что телепаты все в отпуске

попробуйте вот так:

var k, j : integer;
      ArrCounter : array[1..4] of integer;
....
 for k:=1 to  Form1.RzStringGrid1.RowCount - 1 do begin
   for j:=1 to 4 do begin
      ArrCounter[j] := 0;
      Form1.RzStringGrid1.Cells[3+j,k]:='n/a';
   end;

   for x1:=8 to Form1.RzStringGrid1.ColCount - 1 do
   begin
      for j:=1 to 4 do
        if Trim(Form1.RzStringGrid1.Cells[x1,k]) = 
                  Trim(Form1.RzStringGrid1.Cells[3+j,0])  then
           Inc(ArrCounter[j]);
   end;
   for j:=1 to 4 do
     Form1.RzStringGrid1.Cells[3+j,k]:=IntToStr(ArrCounter[j]);
end;

ВНИМАНИЕ! ВАЖНО!
Сравнение (и подсчёт) идёт по заголовкам столбцов 4, 5, 6 и 7 -го (напоминаю, нумерация столбцов от нуля).

там должно быть подсчитываемые значения
(ну, например, как на рисунке из пост #1: 100 200 300 400

[artemavd]

Нет, не работает

Давай, Сергей, попробуем разобраться в коде. Код:

var k, j : integer;
      ArrCounter : array[1..4] of integer; //массив столбцов от 1 до 4, т.е. 1,2,3,4
....
 for k:=1 to  Form1.RzStringGrid1.RowCount - 1 do begin //начиная с первой строки и до последней
   for j:=1 to 4 do begin //начиная с первого столбца и до четвертого
      ArrCounter[j] := 0; //инициализируем каждый "столбец" - тут понятно
      Form1.RzStringGrid1.Cells[3+j,k]:='n/a'; //начиная с третьего столбца, прибавляем наши столбцы от 1 до 4
   end;

   for x1:=8 to Form1.RzStringGrid1.ColCount - 1 do  //начиная с восьмого столбца
   begin
      for j:=1 to 4 do //начиная с первого столбца и до четвертого
        if Trim(Form1.RzStringGrid1.Cells[x1,k]) = 
                  Trim(Form1.RzStringGrid1.Cells[3+j,0])  then //вот тут непонятно
           Inc(ArrCounter[j]);
   end;
   for j:=1 to 4 do
     Form1.RzStringGrid1.Cells[3+j,k]:=IntToStr(ArrCounter[j]);
end;

[Serge_Bliznykov]

//начиная с первой строки и до последней

ну не от первой, а от второй.
Или, да, от первой, если первую строку грида считать нулевой
то же касается и 8-го столбца...

      for j:=1 to 4 do //начиная с первого столбца и до четвертого

по сути верно! только не с первого столбца.
это для заполнения массива со счётчиками (нам же 4-ре столбца надо заполнить?...)

        if Trim(Form1.RzStringGrid1.Cells[x1,k]) = 
                  Trim(Form1.RzStringGrid1.Cells[3+j,0])  then //вот тут непонятно

если текущее значение K-й строки и x1 столбца
совпадает с нулевым значением 3+j столбца нулевой строки (нулевая строчка, это та, где у Вас должны находиться заголовки столбцов).

Вот попробуйте написать просто такой код (отдельно, например на кнопке...):

ShowMessage("Заголовок равен "+Trim(Form1.RzStringGrid1.Cells[4,0]));

если увидели "Заголовок равен 100" значит такой подход будет работать. Иначе надо чуть-чуть по другом цикл сравнения сделать.

Нет, не работает

а как именно не работает? Ошибку выдаёт? Или что? И что при этом в столбцах 4-7 получается? Нули? "n/a" ? или какие-то значения, но неправильные?
Рассказывайте поподробнее. Обязательно добьём Вашу задачу!

[artemavd]

Рассказывайте поподробнее.

Сейчас распишу.... . Подожди

Итак, есть таблица

В столбцах 100, 200, 300, 400 записывается количество соотвествующих значений в строках, начиная со столбца с первой датой, в данном случае с 25.07.2010 и до последнего столбца. Иными словами, напротив каждой ФИО, должна располагаться соотвествующая строчка с количеством 100, 200, 300, 400, т.е. сколько их всего в строчке по-отдельности. Как-то так. Вот и вся задача. . Сколько всего именно строк будет - точно заранее неизвестно.

[Serge_Bliznykov]

да это я уже понял!!
Предложенный мною выше код именно эту задачу и решает!

Ты распиши, что означает "Нет, не работает "!!!
__КАК__ именно не работает?! Мой код выдаёт ошибку? Или Что? Что после выполнения кода получается в значениях столбцов?! Пошагово пробовал проходить код?!

и ещё.
выполни эту строчку кода!

ShowMessage("Заголовок равен "+Trim(Form1.RzStringGrid1.Cells[4,0]));

что увидел в результате выполнения?!?!?!

[artemavd]

что увидел в результате выполнения?!?!?!

Название столба 100.

Что после выполнения кода получается в значениях столбцов?!

Все четыре столбца от начала и до конца проставляются нулями.