ListBox1 и Memo1

← →
sashafan © (2007-01-05 13:45) [0]

В проге два элемента ListBox1 и Memo1. Прога работает по такому
способу. В ручную через Items вводишь нужные строки, она в папке
data\files\ создаёт файлы *dll с такими же названиями. Вот код

procedure TForm1.ListBox1Click(Sender: TObject);
var
homeDir: string;
begin
try
memo1.Clear;
homeDir := ExtractFileDir(application.ExeName)+"\data\files\";
memo1.Lines.LoadFromFile(homeDir+ListBox1.Items[ListBox1.ItemIndex]+".dll");
except
Application.MessageBox("Файл повреждён или не найден!","Ошибка загрузки файла")
end;
end;

Это не удобно мне бы хочется, чтобы пользователь сам мог добавить. Как
сделать так, чтобы в поле ListBox1 загружался текст из файла text.txt,
находящийся в папке data\text\.

И ещё заодно вопрос (отдельный). Как в файл text.txt можно добавить
строчку при нажатии на button1, чтобы она отобразилась в поле
ListBox1. Строчка будет вводится в поле edit1.

← →
Anatoly Podgoretsky © (2007-01-05 13:50) [1]

> sashafan (05.01.2007 13:45:00) [0]

ListBox.Items.LoadFromFile

sashafan © (05.01.07 13:45)
И ещё заодно вопрос (отдельный). Как в файл text.txt можно добавить
строчку при нажатии на button1, чтобы она отобразилась в поле
ListBox1. Строчка будет вводится в поле edit1.
listbox1.items.add(edit1.text);

ListBox1 и Memo1 Найти похожие ветки