Нужно скопировать текст из 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];
помогите пожалуйста.