[Revolution2010]

Как уложить инфу с txt файла из memo1 в memo2 уже в одну строку?
Например:
Из:
Нужно
уложить
в
одну строку
текст
_
В:
Нужно уложить в одну строку текст
_

[Oleg]

Что-то непонятно, нужно Memo1 и Memo2 записать в файл одной строкой ?

[NCD]

На мой взгляд, можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
x:=0;
while x < 100 {<<<Ставишь количество строк, которые нужно склеить} do
begin
Memo2.Text := Memo2.Text + Memo1.Lines[x];
x:=x+1;
end;
end;

[The Shadow]

Так намного легче:

Код:

Memo2.Lines.Text:=StringReplace(Memo1.Lines.Text, #13#10, '', [rfReplaceAll]);

[NCD]

Сообщение от The Shadow

Так намного легче:

Код:

Memo2.Lines.Text:=StringReplace(Memo1.Lines.Text, #13#10, '', [rfReplaceAll]);

The Shadow , легче, но смотря с какой стороны посмотреть; я например вообще не понимаю, что у тебя написано Хотя твой вариант пожалуй более грамотный...

[Revolution2010]

Oleg Просто в memo1 сначала загружается исходный текст, а в мемо2 уже измененный, думал так будет проще представить всю картину.

NCD
Спасибо, я пытался таким же способом, но совершил грубую ошибку в синтаксисе. Спасибо, теперь разобрался.

[Revolution2010]

The Shadow
Это способ тоже хорош и быстрее.

#13#10 - это знак перехода на след. строку?

[Oleg]

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

The Shadow#13#10 - это знак перехода на след. строку?

Вообще-то переход на следующую строку только - #13(т.к. означает клавишу Enter)
#10 - тот-же эффект...

[Revolution2010]

Замечательно, я давно искал это так называемое #13 и #10.
Респект Вам +1 за помощь.