Справочные данные (Все лабы для ИУ-7 - решения и задания)
Описание файла
Файл "Справочные данные" внутри архива находится в следующих папках: Все лабы для ИУ-7 - решения и задания, ! Задания !. Документ из архива "Все лабы для ИУ-7 - решения и задания", который расположен в категории "". Всё это находится в предмете "информатика" из 2 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "Справочные данные"
Текст из документа "Справочные данные"
Справочные данные
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 есть горизонтальная и вертикальная полосы прокрутки.