Чтение из тестового файла в ListBox

← →
Anar (2002-09-18 16:33) [0]

Короче хочу чтоб моя прога при запуске читала из текстового файла список. Например: у

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

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..." Дальше не помню.

← →
Song (2002-09-18 16:37) [1]

ListBox1.Items.LoadFromFile("myfile.txt");
Всё, больше ничего не надо.

← →
Lord Warlock (2002-09-18 16:37) [2]

AssignFile(UserDefinedFile,"myfile.txt");
Reset(MainForm.UserDefinedFile);
ReadLn(UserDefinedFile,FileList);
ListBox1.Items.LoadFromFile(FileList);
CloseFile(UserDefinedFile);

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

← →
Андрей Прокофьев (2002-09-18 16:38) [3]

Достаточно просто
ListBox1.Items.LoadFromFile("myfile.txt");

← →
lenin (2002-09-18 16:38) [4]

А может так:
ListBox1.Items.LoadFromFile("myfile.txt");

← →
Anatoly Podgoretsky (2002-09-18 16:48) [5]

У тебя все праильно, но есть ряд вопросов
1. создан ли ListBox1, в достаточно ли мере инициализирован
Попробуй перенести весь этот код в обработчик OnShow

← →
Anar (2002-09-18 21:03) [6]

Вы правы! Просто я здесь код немного изменил. Точнее упростил. Я в начале сделал код чтобы из текстового файла загружал файла загружал в ListBox другой, модальной, формы. Потом сделал по вашему методу, вижу тоже что-то не то. Потом то же самое добавил в обработчик OnCreate этой самой модальной формы. И всё получилось OK. Спасибо вам!

Чтение из тестового файла в ListBox Найти похожие ветки