мини код:
procedure runEDIFrom();
var
form, mr,path : OleVariant;
begin
form := UserForms.EDIAutoSend;
mr := form.ShowModal;
form.OpenDialog1.Filter :='*.txt';
if(mr = mrYes and form.OpenDialog1.Execute) then
begin
path := form.OpenDialog1.FileName;
Log.Message(path);
end else
Runner.Halt('Operation was aborted by user');
end;
Не работает фильтрация в полном сымсле этого слова: т.е. с помощью фильтра в диалоге выидно, что можно выбрать только файл *.txt, но реально можно выбрать любой файл :)
См. картинку: несмотря на маску текстового файла был выбран файл 0.log.
Что же не так?