Как осуществить перенос в TString

[Des]

И так. я тут недавно вопрос задавал, как сохранить в TMemo по очереди все ячейки из TStringGrid, вот что я имел с того вопроса

var s:string; i,j:integer;
begin
 with StringGrid1 do
  for i:=0 to RowCount-1 do
   for j:=0 to ColCount-1 do s:=s+Cells[j,i]+';';
end;

Все работает замечательно, кроме одного.
Как добавить, после каждой ColCount ячейки (скажм после каждой 4) перенос строки?

[mihali4]

Как добавить, после каждой ColCount ячейки (скажем после каждой 4) перенос строки?

Непонятно, что вы хотите...
Переход на следующую строку StringGrid1 ?
Или многострочность в ячейке StringGrid1 ?

Если первое, то

for j:=0 to 3 do

А вот второе неосуществимо для стандартного StringGrid...

[Des]

mihali4
Нет, мне надо что бы в memo добавлялись ячейки, одна за другой, и в конце каждой 4 по счету добавления, выставлялся перенос на другую строку

[mihali4]

Так вы хотите переместить из StringGrid в Мемо построчно ?
Тогда

var s:string; i,j:integer;
begin
 with StringGrid1 do
  for i:=0 to RowCount-1 do
   for j:=0 to ColCount-1 do 
   if j=ColCount-1 then
   begin
   s:=s+Cells[j,i];
   Memo1.Lines.Add(s);
   end else
   s:=s+Cells[j,i]+';';
end;

[_SERGEYX_]

Перенос на другую строку - это s:= s + #13+#10;
Или просто делай Memo1.Lines.Add(s);

[Des]

Сообщение от mihali4

Так вы хотите переместить из StringGrid в Мемо построчно ?
Тогда...

первый вариант мне понравился лучше . Надо в одну строку )
Большое спасибо. Вместе, мы сделаем быстрее!