ошибка - [Error] Unit1.pas(325): Operator not applicable to this operand type

[blackstersl]

привет всем! У меня такой вопрос. при прогоне проги выбивает ошибка.

procedure TForm1.SpeedButton25Click(Sender: TObject);
var
Root: string;
pwRoot : PWideChar;
Dir: string;
begin
Root := '';
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root,pwRoot,MAX_PA TH*2);
if not opendialog1
then Dir :=''
else Dir := Dir+'\'; ------- !!!!!!!!!
SoundPath := Dir;
PlayList(SoundPath);

end;


[Error] Unit1.pas(325): Operator not applicable to this operand type

ПОМОГИТЕ!!!!
заранее благодарю!!!!!!!!

[SERG1980]

Не очень понятна строка
if not opendialog1....................
может быть if not opendialog1.executive

[puporev]

Нужно примерно так:

if not opendialog1.Execute
then Dir :=''

Извините, продублировал.

[blackstersl]

спасибо.я хочу чтобы файлы отображались в listbox1.

[russian-stalker]

так?

procedure TForm1.Button1Click(Sender: TObject);
var
Dir:string;
SoundPath:string;
begin
  if not opendialog1.execute
then exit
else Dir := opendialog1.filename;
SoundPath := Dir;
PlayList(SoundPath);
end;

[puporev]

if not opendialog1.execute   
then exit

Здесь вместо Exit, чтобы не выходить из программы, сделать какое-нибудь сообщение и дать возможность повторить действия.

[russian-stalker]

Оно не выйдет из программы, а просто завершит функцию