[T-dayne]

Есть Memo1, его Width = 20 и есть Memo2, его Width = 100.
Так вот, при выполении memo2.lines.addstrings(memo1.lines) происходит добавление строк, длиной как memo1. Мне же нужно, чтобы заполение происходило на всю длину memo2. Т.е. фактически, нужно убрать #10#13 в нужных местах!
Если не понятно-проект прилагается.
Прошу у Вас помощи. Спасибо.

[lmikle]

тогда только руками с проверкой длинны строки (т.е. для каждой строки берешь Memo2.Canvas.TextWidth).

[Crack502]

Попробуй, может пригодится

var
  Form1: TForm1;
  s,s1,s2: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Memo1.Lines.Strings[0];
s1:=copy(s, 0, Trunc(length(s)/2));
s2:=copy(s, length(s1)+1, Trunc(length(s)/2));
memo2.Lines.Add(s1);
memo2.Lines.Add(s2);
end;

[T-dayne]

Crack502
не, что-то совсем не-то. мб еще кто-то поможет?

[lmikle]

Как я понимаю, у тебя "ширина" указана в символах.
Тогда надо по 5 шт исходных строк слить в одну и зусунуть ее во второе мемо.

Код:

var
  I, C : Integer;
  S : String;
begin
  C := 0;
  S := '';
  For I := 0 To  Memo1.Lines.Count-1 Do
    Begin
      S := S + Memo1.Lines[i];
      Inc(C);
      If C = 5 Then
         Begin
            Memo2.Lines.Add(S);
            C := 0;
            S := '';
         End;
    End;
  If S <> '' Then Memo2.Lines.Add(S);
end;

А вообще-то, граждане, вы совсем обленились.
Мог бы и сам подумать - не такой и сложный алгоритм.

[Crack502]

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

А вообще-то, граждане, вы совсем обленились.
Мог бы и сам подумать - не такой и сложный алгоритм.

И правда, не очень сложный...

[T-dayne]

Как я понимаю, у тебя "ширина" указана в символах.

Нет, ширина ограничивается шириной поля Memo1.Width , MaxLength=0

[Ama]

Все проще не куда. Мемо2.wordwrap:= true. С:= мемо1.техт. Удаляешь из С все #10#13. И мемо2.техт:= С. И все дела.