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

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

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

Чтение из тестового файла в ListBox [D6, WinXP]

Anar © (2002-09-18 16:33:00)
Короче хочу чтоб моя прога при запуске читала из текстового файла список. Например: у

меня текстовый файл, в котором написано:

file1.txt
file2.doc
file3.exe

и т.д.

Пишу такой код:

public
UserDefinedFile:TextFile;
...
procedure TMainForm.FormCreate(Sender: TObject);
Var FileList:String;
Begin
AssignFile(UserDefinedFile,"myfile.txt");
Reset(MainForm.UserDefinedFile);
ReadLn(UserDefinedFile,FileList);
ListBox1.Items.LoadFromFile(FileList);
CloseFile(UserDefinedFile);
End;
...

Что здесь неправильно???

При запуске программы (Ctrl-F9) выдает ошибку: "Access Violation at..." Дальше не помню.

Anar (2002-09-18 21:03:00) [1]
Вы правы! Просто я здесь код немного изменил. Точнее упростил. Я в начале сделал код чтобы из текстового файла загружал файла загружал в ListBox другой, модальной, формы. Потом сделал по вашему методу, вижу тоже что-то не то. Потом то же самое добавил в обработчик OnCreate этой самой модальной формы. И всё получилось OK. Спасибо вам!

Anatoly Podgoretsky (2002-09-18 16:48:00) [2]
У тебя все праильно, но есть ряд вопросов
1. создан ли ListBox1, в достаточно ли мере инициализирован
Попробуй перенести весь этот код в обработчик OnShow

Андрей Прокофьев (2002-09-18 16:38:00) [3]
Достаточно просто
ListBox1.Items.LoadFromFile("myfile.txt");

lenin (2002-09-18 16:38:00) [4]
А может так:
ListBox1.Items.LoadFromFile("myfile.txt");

Song (2002-09-18 16:37:00) [5]
ListBox1.Items.LoadFromFile("myfile.txt");
Всё, больше ничего не надо.

Lord Warlock (2002-09-18 16:37:00) [6]
AssignFile(UserDefinedFile,"myfile.txt");
Reset(MainForm.UserDefinedFile);
ReadLn(UserDefinedFile,FileList);
ListBox1.Items.LoadFromFile(FileList);
CloseFile(UserDefinedFile);

Все что нужно из этого :
ListBox1.Items.LoadFromFile(Путь разумеется+"myfile.txt");

Наверх

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