[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]);

[Revolution2010]

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

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

[Revolution2010]

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

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

[NCD]

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

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

Код:

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

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

[Oleg]

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

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

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

[Revolution2010]

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

[~ SaM ~]

<b>Revolution2010</b>

Все коды клавиш:

http://www.thalion.kiev.ua/idx.php/104/280/article/

[Oleg]

Вот эти же коды есть в любой справке по Delphi(у меня по Delphi 6).
Кстати, гораздо удобнее смотреть в таблице символов: "Пуск"=>"Программы"=>"Стандартные"=>"Служебные " => Таблица Символов.
Слева внизу шестнадцатеричные(hex) Справа(не всегда) десятичные(dec).
Если есть только шестнадцатеричные(hex), то чтобы его перевести на наш язык (десятичный) открываем калькулятор, инженерный ставим hex(16-ичная), вводим это значение, выбираем dec(10-тичное).

[NCD]

Спасибо за ссылку! А я всё думал, как же работают OnKeyDown и OnKeyUp.

[~ SaM ~]

to Oleg

Ничего личного, но :

1)Ну и зачем столько действий?

2)

гораздо удобнее смотреть в таблице символов: "Пуск"=>"Программы"=>"Стандартные"=>"Служебные " => Таблица Символов.

ИМХО, проще сохранить страницу и при необходимости ее открывать.

3)

Справа(не всегда) десятичные(dec).

.
Прикольно! особенно "не всегда".

4) + ко всему - калькулятор!

P.S. Мне кажется, что твоим способом можно пользоваться при условии, когда совершенно нет возможности выйти в инэт!

[Oleg]

Сообщение от ~ SaM ~

to OlegНу и зачем столько действий?

Чтобы было понятно.

Сообщение от ~ SaM ~

P.S. Мне кажется, что твоим способом можно пользоваться при условии, когда совершенно нет возможности выйти в инэт!

Вот именно ...