Вывод информации в Memo из файла. - Общие вопросы Delphi

Фибер Оптик · 02.05.2007, 14:15

Уважаемые программисты!
Столкнулся с проблемой: при выводе в поле Memo информации из файла,она пишется в одну строчку.Как сделать,чтоб информация из файла записывалась с переносом на другую строчку?
Заранее спасибо!

Квэнди · 02.05.2007, 14:20

loadfromfile собственно загружает данные из файла в том виде, в котором они у вас там хранятся. Если надо каким- то образом переносить строку, то сначала определитесь с признаком конца строки и потом соответственно по этому признаку переносите )

Фибер Оптик · 02.05.2007, 15:47

Спасибо за ответ,но,к сожалению,я не очень понял.

У меня есть файл txt,в котором содержится,допустим,2 строки.
Я пишу код:
var
q: TextFile;
buf: string;
begin
AssignFile(q,'что-то.txt');
Reset(q);
WHILE NOT EOF(q) DO
begin
Read(q,buf);
end;
Memo1.Lines.Add(buf);
CloseFile(q);
end;
Всё работает,но в в поле Memo1 две строки из файла txt соединяются в одну.А мне надо,чтоб в этом поле выводилось сообщения так же,как они располагаются в файле.

Shuraken · 02.05.2007, 15:54

Замени Read на ReadLn и проверь.

zetrix · 02.05.2007, 18:37

Попробуйте всё же: memo1.Lines.LoadFromFile('что-то.txt');

Фибер Оптик · 02.05.2007, 23:24

Ничего не выходит.Всё пишет в одну строчку.Может ещё какие-нибудь идеи будут?

Я буду очень благодарен.

Alar · 02.05.2007, 23:31

файл в студию.

memo1.Lines.LoadFromFile('что-то.txt'); - всё! Больше ничего не надо. если не работает. то сделай 100 раз, пока не заработает.

Фибер Оптик · 03.05.2007, 14:44

Всё,в этом я разобрался.Моя ошибка была.Спасибо.
Ещё один вопос:как сделать,чтоб при формировании txt файла,информация в нём записывалась не в одну строчку,а в несколько? Ну,допустим,через 100 символов(включая пробелы) был перенос на другую строку.

dron-s · 03.05.2007, 15:01

проверять длину строки и если она равно 100 то делать перенос #10#13

rpy3uH · 03.05.2007, 20:32

вернее, вставлять #10#13 после 100, 202, 304, 406 ........ символов

02.05.2007, 14:20	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	loadfromfile собственно загружает данные из файла в том виде, в котором они у вас там хранятся. Если надо каким- то образом переносить строку, то сначала определитесь с признаком конца строки и потом соответственно по этому признаку переносите ) ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

02.05.2007, 15:54	#4
Shuraken Форумчанин Регистрация: 16.04.2007 Сообщений: 298	Замени Read на ReadLn и проверь. Не надо ничего усложнять. Все достаточно тривиально.

02.05.2007, 23:31	#7
Alar Александр Администратор Регистрация: 28.10.2006 Сообщений: 17,501	файл в студию. memo1.Lines.LoadFromFile('что-то.txt'); - всё! Больше ничего не надо. если не работает. то сделай 100 раз, пока не заработает. Купить рекламу на форуме за 42 тыс руб за месяц размещения

03.05.2007, 15:01	#9
dron-s Форумчанин Регистрация: 04.03.2007 Сообщений: 615	проверять длину строки и если она равно 100 то делать перенос #10#13 Сайт о всех генераторах отчётов- статьи, исходники, постоянное обновление статей Первые шаги в FastReport Studio

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вывод из файла!!!	Exclucive	Общие вопросы C/C++	2	24.05.2008 20:42
Форматированный вывод информации в поле ввода (TEdit или подобные)	vet_coder	Компоненты Delphi	3	13.12.2007 10:55
вывод файла на экран!	Шушелла	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	9	29.10.2007 09:34

02.05.2007, 14:15	#1
Фибер Оптик Регистрация: 02.05.2007 Сообщений: 9	Вывод информации в Memo из файла. Уважаемые программисты! Столкнулся с проблемой: при выводе в поле Memo информации из файла,она пишется в одну строчку.Как сделать,чтоб информация из файла записывалась с переносом на другую строчку? Заранее спасибо!

02.05.2007, 15:47	#3
Фибер Оптик Регистрация: 02.05.2007 Сообщений: 9	Спасибо за ответ,но,к сожалению,я не очень понял. У меня есть файл txt,в котором содержится,допустим,2 строки. Я пишу код: var q: TextFile; buf: string; begin AssignFile(q,'что-то.txt'); Reset(q); WHILE NOT EOF(q) DO begin Read(q,buf); end; Memo1.Lines.Add(buf); CloseFile(q); end; Всё работает,но в в поле Memo1 две строки из файла txt соединяются в одну.А мне надо,чтоб в этом поле выводилось сообщения так же,как они располагаются в файле.

02.05.2007, 18:37	#5
zetrix Delphi/C++/C# Участник клуба Регистрация: 29.10.2006 Сообщений: 1,972	Попробуйте всё же: memo1.Lines.LoadFromFile('что-то.txt');

02.05.2007, 23:24	#6
Фибер Оптик Регистрация: 02.05.2007 Сообщений: 9	Ничего не выходит.Всё пишет в одну строчку.Может ещё какие-нибудь идеи будут? Я буду очень благодарен.

03.05.2007, 14:44	#8
Фибер Оптик Регистрация: 02.05.2007 Сообщений: 9	Всё,в этом я разобрался.Моя ошибка была.Спасибо. Ещё один вопос:как сделать,чтоб при формировании txt файла,информация в нём записывалась не в одну строчку,а в несколько? Ну,допустим,через 100 символов(включая пробелы) был перенос на другую строку.

03.05.2007, 20:32	#10
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	вернее, вставлять #10#13 после 100, 202, 304, 406 ........ символов [Программирование на ассемблере на платформе x86-64]