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

Помогите с OpenDialog   Найти похожие ветки 

← →
Yanis ©   (2003-04-30 21:46) [0]

Я опять с openDialog(ну не любим мы дру друга), как при открытии нескольких файлов с его помощью, загрузить имена файлов(не путь к файлам) например в ListBox.
Буду признателен всем кто ответит(хоть что нибудь).

---

← →
circul ©   (2003-04-30 22:07) [1]

var
i: integer;
begin
od.Execute;
for i := 0 to od.Files.Count-1 do lb.Items.Add(ExtractFileName(od.Files[i]));

---

← →
Denizzz   (2003-04-30 22:18) [2]

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
with OpenDialog1 do
begin
Options := [ofFileMustExist, ofHideReadOnly,ofEnableSizing,ofAllowMultiSelect];
if Execute then
for i:=0 to files.count-1 do
ListBox1.Items.Add(ExtractFileName(files.strings[i]));
Options := [ofFileMustExist, ofHideReadOnly,ofEnableSizing];
end;
end;

---

← →
Denizzz   (2003-04-30 22:20) [3]

То что написал Циркуль у меня не работает!!!!!!!!

---

← →
Юрий Зотов ©   (2003-04-30 22:26) [4]

Наверное, обижается на od и lb?
Если так, то неудивительно, что у ВАС это не работает.

---

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

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



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