Помогите с 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?
Если так, то неудивительно, что у ВАС это не работает.

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