[Misterhomer]

как в мемо добавить например текст из 100 символов, и добавить так, чтобы в строку записывалось только по 15 символов?

[friz]

Код:

for i:=1 to 100 do
begin
memo1.text:=memo1.text+Simvol;
k:=k+1;
if k=15 then memo1.text:=memo1.text+#13;
end;

что-то такое.... писал по памяти

[NIch]

Позволю себе поправить

Код:

for i:=1 to 100 do
begin
memo1.text:=memo1.text+Simvol;
Inc(k);//Так красивше
if k=15 then 
begin
memo1.text:=memo1.text+#13;
k := 0;//А так начинаю цикл подсчета заново
end;
end;

[Misterhomer]

оно почему-то не работает (((
просто в мемо уже есть какой-то текст и в другое мемо нужно записать этот текст только по 15 символов в каждую строку!