Memo перенос строк.

[mt10forex]

Помогите пожалуйста с кодом.
Есть Memo шесть штук при нажатие на кнопку строки должны складываться в одну строку а они начинаются все с новой строки.


Как сделать чтоб было предложение целиком?
вот код

procedure TForm1.Button1Click(Sender: TObject);
begin

Memo6.Lines.Text:=Memo1.Lines.Text+ Memo2.Lines.Text+Memo3.Lines.Text+M emo4.Lines.Text+Memo5.Lines.Text;

end;

end.

[ChEaTeR-abc]

Попробуй так(не уверен что получится):

Memo6.Lines[1]:=Memo1.Lines.Text+ Memo2.Lines.Text+Memo3.Lines.Text+M emo4.Lines.Text+Memo5.Lines.Text;

[mt10forex]

Сообщение от ChEaTeR-abc

Попробуй так(не уверен что получится):

Memo6.Lines[1]:=Memo1.Lines.Text+ Memo2.Lines.Text+Memo3.Lines.Text+M emo4.Lines.Text+Memo5.Lines.Text;

не, то же самое(

[apromix]

Memo6.Text := Memo1.Text + ...

[ChEaTeR-abc]

Я вбил тот код который ты в первом сообщении писал.Всё работает нормально.Вот посмотри програмку:

[mt10forex]

Сообщение от ChEaTeR-abc

Я вбил тот код который ты в первом сообщении писал.Всё работает нормально.Вот посмотри програмку:

хм.. мда действительно работает как надо а почему у меня не работал мой исходник, ведь всё одинаково спасибо большое

[ChEaTeR-abc]

Может в настройках чтото.И нажми, пожалуйста, на весы под моим ником

[Stilet]

а они начинаются все с новой строки.

Это потому что по умолчанию в Мемо поле текст завершается символами перевода строки. При конкатенации они учитываются, отсюда и получается что каждое содержимое Мемо помешается на новую строку.

Чтоб этого избежать можно извращаться так:

var i:integer;
begin
 for i:=0 to ComponentCount-1 do
  if (Components[i] is TMemo)and(Components[i]<>Memo1) then
   [I]Memo1.Lines.Text:=Memo1.Lines.Text+StringReplace(TMemo(Components).Lines.Text,#13#10,' ',[rfreplaceall]);
end;

т.е. заменять переносы строк на пробелы.