В мемо преобразовать текст.

[Aleksandr]

Есть произвольный текст в мемо. как его сформировать на блоки длиной 11 символов?

[Аватар]

i:=1;
while i<Length(Memo.Text) do begin
  s:=Copy(Memo.Text,i,11);
  //s куда-то записываем
  Inc(i,11);
end;

Возможная проблема - наличие в Memo символов перевода каретки и строки

[Serge_Bliznykov]

И где их сформировать, в том же Memo?
И блоки чем разделяются?

p.s. что Вы такой скупой на слова и детали? Вам не нужен результат? Или всё равно, какой результат получите?

[Aleksandr]

В чем и проблема в мемо есть символы перевода каретки и строки. Строки мемо произвольной длины, а нужно сделать чтобы все были на 11 символов.
К примеру текст мемо1
п 1132 каыв
ао55

5343
423
ор5523пп
33?


А в мемо 2 должно быть

п 1132 каыв
ао555343423
ор5523пп33?

[Аватар]

Выдернуть куда-то Memo.Text, заменить в нем все встреченные #13#10 на '' с помощью StringReplace и дальше как в посте 2

[Serge_Bliznykov]

Сообщение от Аватар

Выдернуть куда-то Memo.Text, заменить в нем все встреченные #13#10 на '' с помощью StringReplace и дальше как в посте 2

угу. точно так. я бы предложил такой код:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
  i : integer;
begin
  s := StringReplace( Memo1.Text, #13#10, '', [rfReplaceAll]);
  i:=12;
  while i<Length(s) do begin
    Insert(#13#10,s,i);
    Inc(i,13);
  end;
  Memo2.Text := s;
end;