![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Нужно скопировать текст из stringgrid в edit. В каждой ячейке stringgrid находится по одному символу. Размер stringgrid постоянно разный.
У меня не записывается последняя строчка из stringgrid в edit. В чем проблема не пойму. Код:
for y := 0 to StringGrid1.RowCount do begin for x := 0 to StringGrid1.ColCount do begin txt:= txt+(StringGrid1.Cells[x,y]); Edit1.text:=(txt); А при занесении наоборот из edit d stringgrid не записывается последняя буква Код:
m:=strtoint(edit1.text);//например =6 s:=edit2.Text; for i:=0 to length(s) do StringGrid1.Cells[i mod m,i div m]:=s[i+1]; помогите пожалуйста. |
#2
|
|||
|
|||
![]() во первых
Код:
txt='';for y := 0 to StringGrid1.RowCount-1 do begin for x := 0 to StringGrid1.ColCount-1 do begin txt:= txt+(StringGrid1.Cells[x,y]); Edit1.text:=(txt); во вторых Код:
m:=strtoint(edit1.text);//например =6 s:=edit2.Text; for i:=0 to length(s)-1 do StringGrid1.Cells[i mod m,i div m]:=s[i+1]; |
#3
|
||||
|
||||
![]() Нет,
Цитата:
А, извиняюсь, все верно, не заметил... Сорри. Последний раз редактировалось YVitaliy, 21.02.2012 в 17:26. |
#4
|
|||
|
|||
![]() Код:
m:=strtoint(edit2.text); shmess:=edit4.Text; for i:=0 to length(shmess)-1 do StringGrid1.Cells[i mod m,i div m]:=shmess[i+1]; и сдесь тоже все равно последняя строка не хочет заноситься в stringgrid Последний раз редактировалось delphihelp, 21.02.2012 в 19:00. |
#5
|
||||
|
||||
![]() Должно работать 100%. Лучше прикрепи свой неработающий пример, а там может что подправим.
|
#6
|
|||
|
|||
![]() Вот. В процедуре при нажатии button2 в компонент edit4 не дописывается последняя строка из stringgrid2. Еле нашел, вроде вложился файл. Заранее спасибо за помошь.
Последний раз редактировалось delphihelp, 21.02.2012 в 19:09. |