Справочные данные 1) Стандартные подпрограммы

Справочные данные
1) Стандартные подпрограммы
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons:
TMsgDlgButtons; HelpCtx: Longint): Word;
Функция отображает окно сообщения и позволяет получить ответ от пользователя в виде
целого числа, зависящий от нажатой кнопки окна.
Соответствующими фактическими параметрами должны быть
 Msg – строка сообщения,
 DlgType – одно из значений типа TMsgDlgType = (mtWarning, mtError,
mtInformation, mtConfirmation, mtCustom), определяющее текст заголовка окна
рисунок значка на окне (например, Confirm и
),
 Buttons – конструктор множества, элементами которого могут быть значения
базового типа TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry,
mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp) представляющие различные
кнопки окна (их число равно числу элементов множества), а функция вернет число,
соответствующее нажатой кнопке (каждому значению базового типа соответствует
предописанная именованная константа вида id<ИмяКнопки>, например,
константному идентификатору mbYes будет соответствовать кнопка с именем Yes
и возвращаемое при её нажатии значение idYes=6).
 HelpCtx – целое число – представляющее появляющуюся при нажатии клавиши F1
справу, 0 – нет справки.
Пример. В процедуре возникла ситуация, когда решение должен принять пользователь
case MessageDlg(‘Продолжить работу?’; mtConfirmation, [mbYes, mbNo],0) of
idYes:; // продолжить выполнение процедуры
idNo: exit; //выход из процедуры
end;
Else
function InputQuery(const ACaption, APrompt: string; var Value: string):
Boolean;
Отображает окно диалога с заголовком ACaption, с пояснением, что должен ввести
пользователь APrompt в строке ввода,соответствующей параметру Value, и кнопками OK
и Cancel. При щелчке на кнопке OK функция вернёт значение true и текст из поля в
параметре Value. При щелчке на кнопке Cancel функция вернёт значение false и пустую
строку в параметре Value.
function InputBox(const ACaption, APrompt, ADefault: string): string;
Отображает окно диалога с заголовком ACaption, с пояснением, что должен ввести
пользователь APrompt в строке ввода, в которой изначально будет отображен текст,
заданный параметром ADefault, и кнопками OK и Cancel. При щелчке на кнопке OK
функция вернёт значение текст из поля ввода, а при щелчке на кнопке Cancel функция
вернёт значение параметра ADefault даже если пользователь изменил текст в поле ввода.
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
Параметр Path представляет путь доступа к каталогу и маску искомых файлов. Функция
вернёт значение 0, если в этом каталоге найдётся хотя бы один файл, соответствующий
маске (например, задание первого параметра равным ‘D:\temp\*.txt’ ,будет задавать поиск
текстовых файлов в каталоге D:\txt). Прараметр Attr задаёт атрибуты искомых
файлов:скрытый, системный, каталог и др. []. При поиске файлов с любой комбинацией
атрибутов этот параметр должен иметь значение $3f. Выходной параметр F является
записью типа TsearchRec, полями которой, в частности, являются поле с именем Name,
представляющее строку с именем и типом найденного файла, поле с именем Size,
представляющее размер файла в байтах.
Значние параметра F нельзя менять. Он потребуется при вызове процедуры FindNext (см.
ниже), продолжающей поиск файлов.
function FindNext(var F: TSearchRec): Integer;
Функция вернёт значение 0, если в каталоге найдётся хотя бы ещё один файл,
соответствующий маске. При этом будет представлять характеристики этого найденного
файла.
procedure FindClose(var F: TSearchRec);
Процедура завершает поиск файлов.
2) Классы
TOpenDialog
Назначение
Диалоговое окно для выбора открываемого файла.
Свойства
FileName:TFileName - Строка, представляющая спецификацию выбранного файла.
InitialDir: String – Задаёт, какой каталог станет текущим при открытии диалога.
Filter: String - Описывает маски файлов (фильтры), доступных в диалоге [1]. Например,
оператор
OpenDialog1.Filter :='*.pas, *.txt|*.PAS;*.TXT'|все файлы|*.*’; позволит выбирать
отображение либо только файлов типа .pas и .txt, либо всех файлов текущего каталога.
Options: TOpenOptions - Описывает вид окна и возможности выбора файлов в диалоге.
Задаётся конструктором множества с базовым перечисляемым типом TopenOption [1].
Метод
function Execute: Boolean; override; Отображает окно диалога выбора файла. При
закрытии окна вернёт true, если файл выбран (выдлен и нажата кнопка Открыть), иначе
– false (нажата кнопка Отмена).
TSaveDialog
Назначение
Диалоговое окно выбора файла для сохранения.
Наследует от TopenDialog свойства и методы.
TMemo
Назначение
Компонент для обработки многострочных текстов.
Свойства
Text: TCaption- строка, представляющая весь текст компонента, включая маркеры
разделителей строк #$D#$A.
Lines: Tstrings – набор строк текста компонента.
SelText: string – выделенный текст компонента
Modified: Boolean – получает значение true, если текст изменён пользователем;
изначатьно, или после загрузки из файла, или когда нет текста свойство имеет значение
false.
ScrollBars: TscrollStyle – задаёт возможные варианты использования полос прокрутки:
ssNone - нет полос прокрутки, ssHorizontal – есть только горизонтальная полоса
прокрутки, ssVertical – есть только вертикальная полоса прокрутки, ssBoth есть
горизонтальная и вертикальная полосы прокрутки.
Методы
procedure Clear; virtual; Отображает окно диалога выбора файла. При закрытии окна
вернёт true, если файл выбран (выдлен и нажата кнопка Открыть), иначе – false (нажата
кнопка Отмена).
procedure SelectAll – выделить весь текст компонента.
3) Типы данных
4)
5)
6) Примеры из справки
пример на OpenDialog1.Execute
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then
{ Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S);
{ Read first line of file }
Edit1.Text := S;
{ Put string in a TEdit control }
CloseFile(F);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
пример на OpenDialog1.Execute и FileName
var
F: Textfile;
begin
OpenDialog1.Title := 'Delete File';
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
try
Reset(F);
if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
CloseFile(F);
Erase(F);
end;
except
on EInOutError do
MessageDlg('File I/O error.', mtError, [mbOk], 0);
end;
end;
end;