messagedlg

@Alibaba159 · Регистрация: 03.06.2013

Author24 — интернет-сервис помощи студентам

ошибка: [Error] Unit1.pas(92): Incompatible types: "TMsgDlgBtn" and "Integer"
В чём дело пожалуйста помогите

Delphi

begin
  with dmMain do
    if adotNSI.State in [dsInsert, dsEdit] then
      if MessageDlg('Хотите сохранить текст?',
          mtConfirmation, mbYesNo, -1) = mrYes then
        adotNSI.Post
 
      else
        adotNSI.Cancel;
  Close;
end;

Добавлено через 3 минуты
все исправил

@Mawrat · 19.06.2013, 09:09

Комментарий модератора

Форум просматривает большое количество людей. И вот какое решение они находят в теме:

Сообщение от Alibaba159

все исправил

В Правилах Форума на этот случай сказано:

4.11. Если вопрос был решен вами самостоятельно, отпишите об этом в своей теме - есть и другие люди, которые столкнутся с той же проблемой, и им поможет ваш ответ.

Сообщение от Alibaba159

ошибка: [Error] Unit1.pas(92): Incompatible types: "TMsgDlgBtn" and "Integer"

Третий параметр функции MessageDlg() Buttons описан так:

Delphi

1	Buttons: TMsgDlgButtons

Тип TMsgDlgButtons:

Delphi

type 
 
  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);
 
  TMsgDlgButtons = set of TMsgDlgBtn;

Т. е., этот параметр принадлежит множественному типу и должен быть представлен в виде множества, например так: [mbYes, mbNo]:

Delphi

1 2	if MessageDlg('Хотите сохранить текст?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

	19.06.2013, 09:09