Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Разделение строчек [D5, D7, Win95/98, WinXP]

Страницы: < 1 2 3
Александр1 © (2004-08-25 06:51:00)
Здравствуйте уважаемые мастера!
Имеется текстовой файл например 1.txt. В нём записаны несколько строк следующим образом:
1 строка

2 строка

3 строка

Каждая строка разделена пустой строкой (для удобства).
Необходимо считать все строки из файла и распихать их по разным редакторам Memo1, Memo2, Memo3 соответственно.
Почему строки отделены между собой пробелом, потому что строка может состоять как бы из нескольких строк:

Текст 446486855765
Текст 87878778789789

Т.е. делить надо в том случае если есть пустая строчка!
Заранее спасибо за помощь!

Rem (2004-08-25 14:24:00) [41]
2 Александр1

Слушайте! Идите книги по программированию читать! Быстро! И не суйтесь сюда до тех пор, пока не разберетесь, как минимум, с:
- Object Pascal [12];
- правилами поведения на форуме [9];
- русским языком [все остальное].

И пока не научитесь по-человечески вопросы задавать.

И пока не поймете, что это форум программистов, а не бесплатная онлайн справка для начинающих (дай Бог вам, с таким-то гонором, суметь начать!) с интеллектуально-предсказательными парсерами (в виде живых специалистов) ваших корявых вопросов!

Иначе [11] для вас не наступит никогда! Даже в следующей жизни...

begin...end (2004-08-25 14:12:00) [42]

> [11] Александр1 (25.08.04 13:58)

> люди плохие на сайте сидят

Ты себя имеешь в виду?

> [12] Александр1 (25.08.04 14:00)

> S := StringReplace(S, ' ', '', rfReplaceAll );

StringReplace(S, ' ', '', [rfReplaceAll ])

> К стати S- string Да?

Да. F1, кстати.

Александр1 (2004-08-25 14:00:00) [43]
Чё-то эта строчка не работает?
S := StringReplace(S, ' ', '', rfReplaceAll );
К стати S- string Да?

Александр1 (2004-08-25 13:58:00) [44]
Нет. Вы не правы сегодня просто плохой день и люди плохие на сайте сидят.
Завтра будет новый день и всё будет по другому. Ну если не завтра, то через месяц.

Андрей Сенченко (2004-08-25 13:14:00) [45]
Александр1 (25.08.04 13:06) [9]

На этом сайте это очень популярный ответ для подобных Вам.

Нужен совет в непонятной ситуации - спрашивайте. Ответят.
Нужен готовый код ? Обсуждайте цену в "потрепаться".

Я думаю, что цена решения Вашей проблемы не потянет больше, чем на пару бутылок Миллера. Осилите ?

Александр1 (2004-08-25 13:06:00) [46]
КаПиБаРа На этом сайте тебе не разрешают материться, так ты решил при помощи ссылки. Да небольшого ума ты. Ну да ладно, чё с д.... возьмёшь....

46_55_41_44 (2004-08-25 10:12:00) [47]
AssignFile(F, 'путь к файлу/1.txt');
Reset(F);
repeat
readln(S);
S := StringReplace(S, ' ', '', rfReplaceAll );
if S <> '' then
Memo[i].Text := S; //сюда надо вставить, твои Memo или то куда хочешь вставить
Until Eof(F);

КаПиБаРа (2004-08-25 10:04:00) [48]

> Чё вы всё демогогию разводите луче чего бы умного написали!

http://lleo.aha.ru/na/index.shtml

Александр1 (2004-08-25 09:58:00) [49]
А чё тут непонятно. В файле имеется три абзаца. Нужно прочитать файл, а затем каждый абзац записать в отдельный редактор Memo. Границей между абзацами может служить красная строка или вообще лучше пустая строка. Вот и всё.

Александр1 (2004-08-25 09:53:00) [50]
Чё вы всё демогогию разводите луче чего бы умного написали!

Rem (2004-08-25 09:37:00) [51]
[2]
Неужели непонятно?
Код ему нужен. Код...

46_55_41_44 (2004-08-25 09:34:00) [52]
Слушай напиши по понятней... Помогу!!!

КаПиБаРа (2004-08-25 09:16:00) [53]

> Александр1 (25.08.04 06:51)

А вопрос то какой? Что непонятно?

YurikGL (2004-08-25 07:34:00) [54]
что-то вроде

mas:array[1..3] of memo

t:=1

for i:=1 to общее количество строчек
if i-я строчка='' then inc(t)
else mas[t].lines.add(i-я строчка)

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »