|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2016, 22:27 | #1 |
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
|
нужно 2 столбца из первого Stringgrid1 перевести во второй Stringgrid2, и записать их в строчку
Ребят помогите не понимаю как сделать)
Мне нужно 2 столбца из первого Stringgrid1 перевести во второй Stringgrid2, и записать их в строчку, чтобы шел сначала первый Стрин а потом второй стрин |
23.03.2016, 22:32 | #2 | |
Форумчанин
Регистрация: 02.02.2016
Сообщений: 290
|
Циклом от первого, до последнего элемента столбца StringGrid1 копируешь во второй StringGrid, но уже обращаясь по индексу цикла не к столбцу, а к строке. Нет под рукой среды, чтоб правильно записать, там код в одну строчку.
Цитата:
|
|
23.03.2016, 22:39 | #3 |
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
|
Я попробовал не получается)
|
23.03.2016, 22:40 | #4 |
Форумчанин
Регистрация: 02.02.2016
Сообщений: 290
|
Так покажи!
|
23.03.2016, 22:45 | #5 |
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
|
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. |
23.03.2016, 22:46 | #6 |
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
|
procedure TForm1.StringGrid2Click в нем надо доделать
|
23.03.2016, 23:04 | #7 |
Форумчанин
Регистрация: 02.02.2016
Сообщений: 290
|
Код:
|
23.03.2016, 23:06 | #8 |
Пользователь
Регистрация: 09.03.2016
Сообщений: 40
|
Спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перетаскивание информации из StringGrid1 в StringGrid2 Delphi 7 | carrie bradshaw | Помощь студентам | 2 | 24.03.2014 14:56 |
Прочитать из первого файла и записать во второй символ (QBasic) | ulika | Помощь студентам | 1 | 28.12.2013 11:49 |
Как экспортировать StringGrid1 и StringGrid2 в Word | koysara | Общие вопросы Delphi | 1 | 05.10.2010 12:18 |
из StringGrid1 в StringGrid2 | robin39 | Помощь студентам | 1 | 27.05.2010 19:33 |
StringGrid1 и StringGrid2. Их связь | 2Live | Общие вопросы C/C++ | 4 | 03.09.2009 20:10 |