Запись из ListBox в .txt циклом (Delphi7) - Общие вопросы Delphi

Frost56 · 09.03.2013, 10:47

Всем доброго времени суток.
Есть 500 - 3000 строк в ListBox.
Как по очереди (строка к строке) переписать в файл .txt.

Я так понимаю циклом while или for через AssignFile, но сколько ни пытался не получается.

Буду благодарен Вам за помощь!

Mad_Cat · 09.03.2013, 11:00

Код:

rewrite(f);
for i:= 0 to Lst.count-1 do
write(f,Lst.items[i]);
close(f);

Аватар · 09.03.2013, 11:03

а ListBox.Items.SaveToFile одной командой и сразу все не подходит?

Frost56 · 09.03.2013, 11:17

Цитата:

Сообщение от Аватар

а ListBox.Items.SaveToFile одной командой и сразу все не подходит?

Память куриная, я и забыл про это. Спасибо всем большое.

09.03.2013, 10:47	#1
Frost56 Новичок Джуниор Регистрация: 06.03.2013 Сообщений: 2	Запись из ListBox в .txt циклом (Delphi7) Всем доброго времени суток. Есть 500 - 3000 строк в ListBox. Как по очереди (строка к строке) переписать в файл .txt. Я так понимаю циклом while или for через AssignFile, но сколько ни пытался не получается. Буду благодарен Вам за помощь!

09.03.2013, 11:00	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `rewrite(f); for i:= 0 to Lst.count-1 do write(f,Lst.items[i]); close(f);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

09.03.2013, 11:03	#3
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	а ListBox.Items.SaveToFile одной командой и сразу все не подходит? Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Чтение файла .txt из delphi7	Ragers	Помощь студентам	2	02.05.2012 18:10
ListBox (Delphi7)	eeyou1	Помощь студентам	13	17.08.2010 12:34
Загрузка file.txt в ListBox	Shift-stels	Общие вопросы C/C++	1	29.04.2010 21:59
txt в listbox и редактирование	Giza	Помощь студентам	0	25.01.2010 02:44