нужно 2 столбца из первого Stringgrid1 перевести во второй Stringgrid2, и записать их в строчку

[Doni11]

Ребят помогите не понимаю как сделать)
Мне нужно 2 столбца из первого Stringgrid1 перевести во второй Stringgrid2, и записать их в строчку, чтобы шел сначала первый Стрин а потом второй стрин

[vlad1389]

Циклом от первого, до последнего элемента столбца StringGrid1 копируешь во второй StringGrid, но уже обращаясь по индексу цикла не к столбцу, а к строке. Нет под рукой среды, чтоб правильно записать, там код в одну строчку.

Помогите со Stringgrid срочно!!!!!!!!

Название темы должно отражать суть вопроса. Название темы отражает только то, что у тебя истерика. Неужели так тяжело внятно назвать тему?

[Doni11]

Я попробовал не получается)

[vlad1389]

Так покажи!

[Doni11]

var

z,n,k,d:integer;
a:array[1..10,1..10]of integer;
b:array[1..100] of integer;
i,j,t,summ1,summ2,m :integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
t:=0;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j] := (random (10));
stringgrid1.cells[j,i]:=inttostr(a[i,j]);
end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
n:=strtoint(edit1.Text);
stringgrid1.colCount:=n+1;
stringgrid1.RowCount:=n+1;
for i:=0 to n do
begin
stringgrid1.cells[i,0]:='j='+inttostr(i);
stringgrid1.cells[0,i]:='i='+inttostr(i);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
m:=n div 2;
Summ1:=0;
for i:=1 to n do
for j:=1 to m do
Summ1:=Summ1+a[i,j];
Summ2:=0;
for i:=1 to n do
for j:=m+1 to n do
Summ2:=Summ2+a[i,j];

Edit2.text:=IntToStr(summ1);
Edit3.text:=IntToStr(summ2);

if summ1>summ2 then
Edit4.text:=IntToStr(summ2)
else
Edit4.Text:=IntToStr(summ1)
end;


procedure TForm1.StringGrid2Click(Sender: TObject);


begin

if summ1<summ2 then
for i:=1 to m do
for j:=1 to n do


StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j]
else
for i:=m+1 to n do
for j:=1 to n do
StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j]
end;


end.

[Doni11]

procedure TForm1.StringGrid2Click в нем надо доделать

[vlad1389]

var
  k: integer; // держим в памяти текущий выходной индекс
begin
  k := 0;
  for i:= 1 to Stringgrid1.colcount - 1 do
    begin
      inc(k); // k := k + 1;
      Stringgrid2.Cells[k,1] := Stringgrid1.Cells[1,i]; перекинули первый столбец
    end;
  for i:= 1 to Stringgrid1.colcount - 1 do
    begin
      inc(k);
      Stringgrid2.Cells[k,1] := Stringgrid1.Cells[2,i]; перекинули второй столбец
    end;
end;

Смысл приблизительно такой. Писал по памяти, в коде скорее всего ошибки, так что понимай смысл идеи.

[Doni11]

Спасибо