[cyber922]

Мне нужно что бы при нажатии кнопки перестановка, было вот так, допустим в первом стринггриде вводимстаж=50000 оклад=4, а при нажатии кнопки менялось на так: стаж=4 окдлад=50000

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
 var i,j:integer;begin
for j:=0 to StringGrid1.ColCount-1 do
for i:=0 to StringGrid1.RowCount-1 do
StringGrid2.Cells[j,i]:=StringGrid1.Cells[(StringGrid1.ColCount-1)-j,i];
 end;
 procedure TForm1.Formcreate(Sender: TObject);
begin
 StringGrid1.ColCount:=3;
StringGrid1.RowCount:=3;
StringGrid1.DefaultColWidth:=90;
StringGrid1.Cells[0,0]:=' фамилия  ';
StringGrid1.Cells[1,0]:='Стаж ';
StringGrid1.Cells[2,0]:='оклад ';
 StringGrid2.ColCount:=3;
StringGrid2.RowCount:=3;
StringGrid2.DefaultColWidth:=90;
StringGrid2.Cells[0,0]:=' Фамилия ';
StringGrid2.Cells[1,0]:='Стаж ';
StringGrid2.Cells[2,0]:='Оклад';
end;
end.

Но он во втором гриде оставляет все точно так же
если меняю во втором гриде строки

Код:

StringGrid2.Cells[1,0]:='Стаж ';
StringGrid2.Cells[2,0]:='Оклад';

на

Код:

StringGrid2.Cells[1,0]:='оклад  ';
StringGrid2.Cells[2,0]:='стаж';

тогда все нормально. но мне это не очень нравится, может какое условие можно сделать? или ещё что то?