Проблема со StringGrid'ом

[monushka]

У меня есть один SG, в котором указаны следующие данные: 1 колонка - наименование оборудования, 2 - место размещения, 5 - техническое состояние (оценка от1 до 5), 6 - рекомендации. Нужно отсортировать данные по оценке за тех. состояние. Если какому-то оборудованию поставлена 3, то из SG1 эта строка копируется в SG2. Я написала так:

for i:=1 to 151 do
 begin
  if (SG1.Cells[4,i]='__________3__________')  then
   begin
   for x:=2 to SG2.RowCount do
   for y:=0 to 5 do
    begin
     SG2.Cells[0,x-1]:=SG1.Cells[0,i];
     SG2.Cells[1,x-1]:=SG1.Cells[1,i];
     SG2.Cells[2,x-1]:=SG1.Cells[2,i];
     SG2.Cells[3,x-1]:=SG1.Cells[3,i];
     SG2.Cells[4,x-1]:=SG1.Cells[4,i];
     SG2.Cells[5,x-1]:=SG1.Cells[5,i]; 
    end;
    SG2.RowCount:=SG2.RowCount+1;
   end;
  end;

но в результате у меня копируется только последняя строка с оценкой 3 и столько раз, сколько троек было вообще. Т.е. если 4 разных оборудования получили 3, то скопируется последнее оборудование с тройкой четыре раза. Вот такая проблема... Помогите, пожалуйста, ее решить.
Спасибо

[_Dmitry]

Попробуйте так

for i:=1 to 151 do
  if (SG1.Cells[4,i]='__________3__________') then
    begin
      if SG2.RowCount <= i then
        SG2.RowCount:=SG2.RowCount+1; 
      for y:=0 to 5 do
        SG2.Cells[y,i]:=SG1.Cells[y,i];
    end;

Если не заработает, выкладывайте программу целиком, поправлю

[Stilet]

Эта тема уже была. Ишите поиском. И ответы там даны

[monushka]

Dmitry, спасибо за помощь! Это несколько помогло. Только теперь копируются все строки с оценкой 3 кроме последней и вместо строк, в которых были оценки не 3, остается пустая строка.

[AlDelta]

Попробуй использовать этот код.

procedure TForm1.Button1Click(Sender: TObject);
var i,count:integer;
begin
i:=1;
count:=1;
while StringGrid1.Cells[0,i]<>'' do
Begin
if StringGrid1.Cells[Х,i]='3' then//вместо Х ставишь номер нужного тебе столбца
Begin
StringGrid2.Rows[count]:=StringGrid1.Rows[i];
count:=count+1;
End;
i:=i+1;
End;
end;

[monushka]

AlDelta, если пользоваться Вашим кодом, то копирует только первую строку с оценкой 3. Блин, достала меня уже эта прога! Столько вариантов перепробовала, не могу понять чего ей надо!

[_Dmitry]

А если так

k:=1;
for i:=1 to 151 do
  if (SG1.Cells[4,i]='__________3__________') then
    begin
      if SG2.RowCount <= k then
        SG2.RowCount:=SG2.RowCount+1; 
      for y:=0 to 5 do
        SG2.Cells[y,k]:=SG1.Cells[y,i];
      k:=k+1;
    end;

[monushka]

_Dmitry, ОГРОМНЕЙШЕЕ Вам спасибо!!! Она наконец-то заработала правильно!!!!

[_Dmitry]

Всегда пожалуйста