как такое можна через цикли написать???
StringGrid1.Cells[0, 0] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[0, 1] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[0, 2] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[0, 3] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[3])-1)];
//-
StringGrid1.Cells[1, 0] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[1, 1] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[1, 2] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[1, 3] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[3])-1)];
//-
StringGrid1.Cells[2, 0] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[2, 1] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[2, 2] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[2, 3] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[3])-1)];
//--
StringGrid2.Cells[0, 0] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[0])-1)];
StringGrid2.Cells[0, 1] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[1])-1)];
StringGrid2.Cells[0, 2] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[2])-1)];
StringGrid2.Cells[0, 3] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[3])-1)];
Изменил(а) luffi, 19-01-2012 12:12 |