Сортировка в StringGrid'е, копирование строк из одного SG в другой

[monushka]

Задача состоит в следующем. Имеется таблица со следующими данными: 1 столбец - наименование оборудования; 2 столбец - место расположения; 5 столбец - оценка тех. состояния; 6 столбец - рекомендации. Необходимо все строки, в которых стоит оценка 3, скопировать во второй стринггрид. Я это сделала вот так:
begin
SG2.Visible:=True;
Label13.Visible:=True;
for i:=1 to SG1.RowCount 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;
SG1.RowCount:=SG1.RowCount+1;
end;
end;

Но в итоге получается, что копируется только значения строки с последней тройкой и столько раз, сколько строк всего имело тройки в оценке.
Помогите пожалуйста! Я уже просто не знаю, что еще можно сделать...

[Stilet]

Вот здесь решение твоих проблем:http://delphiworld.narod.ru/base/sg_col_sort.html

(Читать внимательно!)

А копирование это в цикле )

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
//********* FOR ******************
StringGrid2.RowCount:=2;
for k :=0  to StringGrid1.RowCount-1  do
begin
 if StringGrid1.Cells[1,k]='__________3__________' then begin
  StringGrid2.Rows[StringGrid2.RowCount].Text:=StringGrid1.Rows[k].Text;
  StringGrid2.RowCount:=StringGrid2.RowCount+1
 end;
end;
//******* END FOR ****************{}
end;

P.S. Я домой, пока, если что завтра допокажу чегонить )

[monushka]

Stilet, спасибо, что пытаетесь мне помочь! Но то, что Вы предложили, не работает. Вообще ничего не копируется.

[mihali4]

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

Stilet, спасибо, что пытаетесь мне помочь! Но то, что Вы предложили, не работает. Вообще ничего не копируется.

Просто не нужно бездумно переносить тот код, который вам предлагают. Ведь это только вы "с ушами" погрязли в своей проблеме...
У вас было указано условие:
if (SG1.Cells[4,i]='__________3__________') then
Стилет немного перепутал (так у него своих дел хватает):
if StringGrid1.Cells[1,k]='__________3__________' the
Вроде бы нетрудно?
Чуть повнимательнее к своей собственной проблеме и все будет оки...