Все лабы для ИУ-7 - решения и задания (Справочные данные)

Посмотреть архив целиком

Справочные данные

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

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

Функция отображает окно сообщения и ожидает ответ пользователя, зависящий от нажатой кнопки окна.

Фактическими параметрами должны быть:

  • Msg – строка, выводимая в окно сообщения,

  • DlgType – одно из значений окна сообщения типа TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom), определяющее текст заголовка окна рисунок значка на окне (например, Confirm и ),

Значения и текст на соответствующей пиктограмме:

  • mtWarningокно замечаний, заголовок Warning и черный восклицательный знак на желтом фоне;

  • mtError – окно ошибок, заголовок Error и красный круг с белым крестом;

  • mtInformation – информационное окно, заголовок Information и буква i на белом фоне;

  • mtConfirmation – окно подтверждения, заголовок Confirm и знак вопроса на белом фоне;

  • mtCustom – заказное окно, пиктограмма отсутствует, а в качестве заголовка используется имя файла приложения

  • Buttons –множество значений, которое определяет сколько и какие кнопки будет присутствовать в окне. Значения параметра выбираются из множества типа TMsgDlgBtn = [mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp], представляющие различные кнопки окна (их число равно числу элементов множества). Функция возвращает число, соответствующее нажатой кнопке (каждому значению базового типа соответствует предописанная именованная константа вида id<ИмяКнопки>, например, константному идентификатору mbYes будет соответствовать кнопка с именем Yes и возвращаемое при её нажатии значение idYes=6).

  • HelpCtx – номер страницы справочной системы (целое число), созданной пользователем и вызываемой при нажатии клавиши <F1>. При отсутствии такой страницы значение параметра задается равным 0 (нет справки).

Кроме множества значений, соответствующих отдельным кнопкам, определены

три константы, соответствующие часто используемым сочетаниям кнопок:

- mbYesNoCancel – включает в окно кнопки Yes, No и Cancel;

- mbOkCancel– включает в окно кнопки Ok и Cancel;

- mbAbortRetryIgnore – включает в окно кнопки Abort, Retry и Ignore.

Эти константы являются предопределенными множествами и поэтому их не надо заключать в скобки.

Примеры записи.

В процедуре возникла ситуация, когда решение должен принять пользователь

case MessageDlg(‘Продолжить работу?’, mtConfirmation, [mbYes, mbNo],0) of

idYes:; // продолжить выполнение процедуры

idNo: exit; //выход из процедуры

end;

Диалог при окончании работы приложения

If MessageDlg(‘Хотите закончить работу с приложением?’, mtConfirmation,

[mbYes, mbNo],0) = mrYes then

Begin

MessageDlg(‘Работа приложения закончена’; mtInformation, [mbOK],0);

Close;

End;


function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;

Отображает окно диалога с заголовком ACaption, с предложением APrompt пользователю что-то написать и окном редактирования, в котором пользователь может написать ответ. Параметр Value – это строка текста в окошке редактирования. Строке можно присвоить начальное значение, а после вызова InputQuery в параметре Value будет находиться ответ пользователя. Внизу окна расположены кнопки OK и Cancel. При щелчке на кнопке OK функция вернёт значение true и текст из поля в параметре Value. При щелчке на кнопке Cancel функция вернёт значение false и пустую строку в параметре Value.

Пример записи.

group:=’ИУ4-22’; // начальное значение

if InputQuery (‘Введите номер группы’, ‘Например:’, group )

then <обработка данных группы>;

function InputBox(const ACaption, APrompt, ADefault: string): string;

Отображает окно диалога с заголовком ACaption, с предложением APrompt пользователю что-то написать и окошком редактирования, в котором предварительно загружен текст по умолчанию ADefault. Внизу окна расположены кнопки OK и Cancel.

При щелчке на кнопке OK функция вернёт значение текст из поля ввода, а при щелчке на кнопке Cancel функция вернёт значение параметра ADefault даже если пользователь изменил текст в поле ввода.

Пример записи.

Dir:=Input Box(‘Уточните каталог’,

‘Программа расположена в папке’, ‘d:\temp\Ftext’);

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);

Процедура завершает поиск файлов.

function AnsiUpperCase(const S: string): string

возвращает строку S с символами, преобразованными к верхнему регистру;

применима к русским текстам.


function LowerUpperCase(const S: string): string

возвращает строку S с символами, преобразованными нижнему регистру;

применима к русским текстам.


function FloatToStr(Value: Extended): string

преобразует число с плавающей точкой Value в строку.

function IntToStr(Value: Integer): string

преобразует целое число Value в строку.

function StrToFloat(const S: string): Extended

преобразует строку S в число с плавающей точкой.

function StrToInt(const S: string): Integer

преобразует строку S в целое число.


2) Классы

TOpenDialog

Назначение - диалоговое окно для выбора открываемого файла.

Свойства

FileName:TfileName - строка, представляющая спецификацию выбранного файла.
InitialDir: String – задание текущего каталога при открытии диалога.
Filter: String S

Например, оператор

OpenDialog1.Filter

:='*.pas, *.txt|*.PAS;*.TXT'|все файлы|*.*’; позволит выбирать отображение либо только файлов типа .pas и .txt, либо всех файлов текущего каталога.

Options: TOpenOptions

- Описывает вид окна и возможности выбора файлов в диалоге. Задаётся конструктором множества с базовым перечисляемым типом TopenOption [1].

Метод

function Execute: Boolean; override;

Отображает окно диалога выбора файла. При закрытии окна вернёт true, если файл выбран (выделен и нажата кнопка Открыть), иначе – false (нажата кнопка Отмена).

Пример записи.

If Form1. OpenDialog1. Execute // если файл выбран the begin

s:= OpenDialog1.fileName; // присвоение имени файла

Memo1.Lines.LoadFromFile(s); //загрузка текста из файла в

Memo1.Modified:=false; //текст не модифицирован

Form1.Caption:=’Form1’+’ ‘+s; end; // в заголовок формы добавляется имя файла


TSaveDialog

Назначение - диалоговое окно выбора файла для сохранения.

Наследует от TOpenDialog свойства и методы.

TMemo

Назначение - компонент для обработки многострочных текстов.

Свойства

Text: Tcaption - текст, находящийся в поле Memo, включая маркеры разделителей строк #$D#$A.
Lines: TstringsМассив строк текста поля Memo. Доступ к строке осуществляется по номеру. Строки нумеруются с нуля.
SelText: stringвыделенный текст компонента.

Modified: Boolean – получает значение true, при изменении текста пользователем;

False – когда нет.

ScrollBars: TscrollStyle

– задаёт возможные варианты использования полос прокрутки:, ssHorizontal – только горизонтальная, ssVertical – только вертикальная, ssBoth - горизонтальная и вертикальная, ssNone - нет полос прокрутки.

Методы

procedure Clear; virtual;
procedure SelectAll – выделение всего текста компонента.

Примеры использования компонента Memo

Memo1.Clear; - удаление текста

Memo1.Align:=alClient; - развернуть поле Memo во всю клиентскую область окна формы

Memo1.Font.Name:=’Courier’; - выбор шрифта

Memo1.Modified:=false; - текст не модифицирован (не изменен)

Memo1.Lines.LoadFromFile(’Имя файла’); - загрузить в Memo текст из файла

Memo1.Lines.SaveToFile(’Имя файла’); - записать текст Memo в файл

Memo1.SelectAll; - выделение всего текста в элементе редактирования

Memo1.SelText:=’текст’; - выделение данного текста

Memo1.CopyToClipBoard; - копирует выделенный текст в буфер обмена

Memo1.CutToClipBoard; - вырезает выделенный текст в буфер обмена

Memo1.PasteFrom ClipBoard; - вставляет текст из буфера обмена в место текущего расположения курсора

TStringGrid

Назначение - компонент для обработки таблиц текстов.

Свойства

EditorMode

Cells[ACol, ARow: Integer]: string

– представляет содержимое ячейки, где ACol задаёт номер столбца таблицы, а ARow - номер строки (номерация строк и столбцов начинается с нуля - 0, 1, 2, …). Верхнюю строку таблицы используют для заголовка.

Options: TGridOptions

– множество, допускающее включение константных идентификаторов, задающих параметры таблицы, например, включение goFixedVertLine обеспечит отображение вертикальных линий, разделяющих столбцы таблицы, включение goEditing разрешает редактирование данных в ячейке, включение goTabs позволяет, при TabStop = true, использовать клавишу Tab (Shift+Tab) для перехода к следующей (предыдущей) ячейке таблицы.

Cols[Index: Integer]: Tstrings

– представляет данные всех ячеек колонки с индексом Index.

Rows[Index: Integer]: TStrings

– представляет данные всех ячеек строки с индексом Index.

ColCount: Longint

– представляет количество колонок таблицы.

RowCount: Longint

– представляет количество строк таблицы.

Col: Longint

– представляет номер колонки ячейки, имеющей фокус ввода.

Row: Longint

– представляет номер строки ячейки, имеющей фокус ввода.

EditorMode: Boolean

– при значении true разрешено редактировать данные таблицы.

FixedCols: Integer

– задаёт количество начальных колонок таблицы, включенных в фиксированную зону (ячейки этой колонки обычно содержат заголовки строк).

Fixed Rows: Integer

– задаёт количество верхних строчек таблицы, включенных в фиксированную зону (ячейки этой колонки обычно содержат заголовки столбцов).

FixedColor: Tcolor

– задаёт цвет фиксированной зоны.

ScrollBars: TscrollStyle

– задаёт полосы прокрутки таблицы (см. ).

TabStop: Boolean

– при значении true можно использовать клавишу Tab (Shift+Tab) для перехода к следующей (предыдущей) ячейке таблицы, если в свойство Options добавлено значение goTabs.

ColWidths[Index: Longint]: Integer

– представляет ширину колонки таблицы.

RowHeights [Index: Longint]: Integer

представляет высоту строки таблицы.

События

OnSetEditText: TSetEditEvent

TSetEditEvent = procedure (Sender: TObject; ACol, ARow: Longint; var Value: string) of object

– возникает при редактировании (любом изменении) текста в ячейке таблицы (ACol – номер столбца, ARow – номер строки, счет номеров 0, 1, 2,…; Value – текст в ячейке после изменения).


3) Типы данных

TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth)

именованные константы этого типа представляют возможные варианты использования полос прокрутки в компонентах типа TMemo, TstringGrid и других: ssNone - нет полос прокрутки, ssHorizontal – есть только горизонтальная полоса прокрутки, ssVertical – есть только вертикальная полоса прокрутки, ssBoth есть горизонтальная и вертикальная полосы прокрутки.



Случайные файлы

Файл
71653-1.rtf
22210-1.rtf
92489.rtf
76578-1.rtf
154505.rtf




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