Ошибка выполнения Messagedlg

Молочный Александр

вызов

if MessageDlg(' текст ', mtWarning, [mbOk,   mbCancel], 0) = mrOK then
    begin ...

Выдает
Could not convert variant of type (Array Variant) into type (Integer)

Что не так?
Delphi6, FR 4.12.12

Stalker4

написал: »

вызов

if MessageDlg(' текст ', mtWarning, [mbOk,   mbCancel], 0) = mrOK then
    begin ...

Выдает
Could not convert variant of type (Array Variant) into type (Integer)

Что не так?
Delphi6, FR 4.12.12

"не так" то, что вы не читали документацию по FS. А там этот момент описан.

Надо писать вот так:
MessageDlg('текст', mtWarning, mbOk+mbCancel, 0)