Скачать: CL | DM;

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

---

← →
antonn ©   (2007-01-05 14:12) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c