Delphi функция MessageDlg используется для вывода сообщения пользователю. Сообщение может быть информационным или предупреждающим, или каким-то другим по усмотрению разработчика. Разработчику предоставляется полная свобода выбора кнопок, которые будут использоваться в диалоге.

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

Вызов MessageDlg выводит на экран диалоговое окно и ожидает ответа пользователя. Сообщение в окне задается параметром функции Msg.

Вид отображаемого окна задается параметром AType. Возможные значения этого параметра:

Значение Описание
mtWarning         Окно замечаний, содержащее желтый восклицательный знак.
mtError              Окно ошибок, содержащее красный стоп-сигнал.
mtInformation     Информационное окно, содержащее голубой символ «i».
mtConfirmation  Окно подтверждения, содержащее зеленый вопросительный знак.
mtCustom          Заказное окно без рисунка. Заголовок соответствует имени выполняемого файла приложения.

Параметр AButtons определяет, какие кнопки будут присутствовать в окне. Тип TMsgDlgBtns параметра AButtons является множеством, которое включает различные кнопки. Возможные значения видов кнопок:

Значение            Описание
mbYes                 Кнопка с надписью ‘Yes’
mbNo                   Кнопка с надписью ‘No’
mbOK                  Кнопка с надписью ‘OK’
mbCancel            Кнопка с надписью ‘Cancel’
mbHelp                Кнопка с надписью ‘Help’
mbAbort               Кнопка с надписью ‘Abort’
mbRetry               Кнопка с надписью ‘Retry’
mbIgnore             Кнопка с надписью ‘Ignore’
mbAll                   Кнопка с надписью ‘All’

Список необходимых кнопок заключается в квадратные скобки [ ], поскольку параметр AButtons является множеством. Если внутри скобок список отсутствует, в окне не будет ни одной кнопки и пользователю придется закрывать окно системными кнопками Windows.
Кроме множества значений, соответствующих отдельным кнопкам, в Delphi определены три константы, соответствующие часто используемым сочетаниям кнопок:

Значение Описание
mbYesNoCancel        Включает в окно кнопки Yes, No и Cancel
mbOkCancel              Включает в окно кнопки OK и Cancel
mbAbortRetryIgnore  Включает в окно кнопки Abort, Retry и Ignore

Эти константы являются предопределенными множествами. Поэтому при их использовании их не надо заключать в квадратные скобки [ ]. Параметр HelpCtx определяет экран контекстной справки, соответствующий данному диалоговому окну. Этот экран справки будет появляться при нажатии пользователем клавиши F1. Если вы справку не планируете, при вызове MessageDlg надо задать нулевое значение параметра HelpCtx. Подробнее о контекстной справке см. в описании свойства HelpContext.

Функция MessageDlg возвращает значение, соответствующее выбранной пользователем кнопке. Возможные возвращаемые значения:

mrNone         mrAbort           mrYes
mrOk            mrRetry            mrNo
mrCancel       mrIgnore          mrAll

Функция MessageDlg очень полезна для быстрого создания прототипа приложения и проверки диалогового взаимодействия с пользователем. Но у нее есть заметный недостаток: в заголовках и надписях на кнопках тексты английские, так что при использовании русских сообщений получается смесь русского с английским. Поэтому после создания прототипа приложения лучше заменить стандартные диалоговые окна на спроектированные самим разработчиком.

Имеется также функция MessageDlgPos, во всем аналогичная функции MessageDlg, но отображающее окно в заданном месте экрана. При выводе простых сообщений без необходимости анализировать ответ пользователя удобно использовать другие процедуры Delphi — ShowMessage и ShowMessageFmt.

A confirmation dialog is displayed with OK and Cancel buttons.
The user presses OK :

OK pressed

is displayed in another dialog box.

Delphi процедура CloseFile закрывает открытый файл, связанный процедурой AssignFile. После закрытия файла процедурой CloseFile, все данные, записанные до этого в файл, сохраняются. Переменная типа TFile может после этого связываться с другим физическим файлом.

var
myFile : TextFile;
text : string;

begin
// Try to open the Test.txt file for writing to
AssignFile(myFile, ‘Test.txt’);
ReWrite(myFile);

// Write a couple of well known words to this file
WriteLn(myFile, ‘Hello’);
WriteLn(myFile, ‘World’);

// Close the file
CloseFile(myFile);

// Reopen the file in read only mode
Reset(myFile);

// Display the file contents
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;

// Close the file for the last time
CloseFile(myFile);
end;

Hello
World