Обработка файлов

Begin

Begin

Begin

Begin

Implementation

Begin

Разработка программного кода для вывода текста.

Вариант 1. Для вывода текста в процедуре обработки события необходимо задать значение строковой константы (Str1), а затем свойству. Caption присвоить это значение.

procedure TForm1.FormClick(Sender: TObject);

Const Str1= 'Мы все учились понемногу,' #10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

Label2.Caption:= Str1;

end;

Вариант 2. З начение строковой константы (Str1) задано в разделеimplementation, а в процедуре обработки события свойству Caption присвоено значение константы.

………………

Const Str1= 'Мы все учились понемногу, '#10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

procedure TForm1.FormClick(Sender: TObject);

Label2.Caption:= Str1;

end;

Если константа (или переменная) используется в нескольких процедурах, то вариант 2 предпочтительнее.

Компонент класса TEdit

Компонент класса TEdit панели Standard позволяет осуществлять ввод, редактирование и отображение текстовой строки.

Основные свойства и события:

Text: String - отображаемая строка;

ReadOnly –(true/false) – разрешает/запрещает изменение текста;

свойства ⁺Font, AutoSize, WordWrap аналогичны свойствам компонента TLabel;

OnChange – возникает при любых изменениях в поле;

OnClick – щелчок по полю

OnDblClick - двойной щелчок по полю;

OnEnter – возникает после ввода и нажатии <Enter>;

OnExit – возникает после потери фокуса полем.

Пример ввода/вывода значения глобальной строковой переменной

1. Установите на форме два компонента TEdit. и удалите текст, заданный по умолчанию.

2. Определите процедуру обработки события, например OnExit.

3. Опишите в разделе implementation глобальнуюстроковую переменную.

var Str2: String; // ей будет присвоено значение поля Edit1

4. Добавьте в текст процедуры оператор присваивания переменнойStr2 значения текстового поля.

procedure TForm1.Edit1Exit(Sender: TObject);

Str2:= Edit1.Text; //Переменной присвоено значение

Edit2.Text:= Str2; //В Edit2 выведено значение Str2

end;

Компонент класса TLabeledEdit

Компонент TLabeledEdit панели Additional является комбинацией однострочного текстового поля и надписи.

Основные свойства надписи:

⁺EditLabl.Caption - текст надписи

LabelPosition = (IpAbove, IpBelov, IpLeft, IpRight) - определяет положение надписи относительно текстового поля (сверху, снизу, слева, справа).

LabelSpacing – определяет расстояние от метки до текстового поля в пикселях.

Остальные свойства аналогичны свойствам компонента TLabel.

Компонент класса TMemo

Компонент класса TMemo - панели Standard предназначен для ввода, редактирования и/или отображения длинного многострочного текста. Для работы с коротким однострочным текстом предпочтительней компонент TEdit.

Основные свойства, события и методы:

Lines: TString - содержит строки текста в виде пронумерованного набора строк;

Text: String - отображает содержимое свойства Lines в виде одной длинной строки;

метод-Lines.Add(S: String)– добавляет в поле константу или переменную S;

Пример демонстрирует построчный вывод констант или переменных (М, ММ) в поле Memo1 и последовательный вывод в поле Memo2.

procedure TForm1.FormActivate(Sender: TObject);

Memo1.Lines[0]:= M; //вывод в строку 0 константы М

Memo1.Lines[1]:= MM; //вывод в строку 1 константы ММ

Memo2.Text:= M; //вывод константы М в текущую строку Memo2.Text:=Memo2.Text + #13#10 + MM; {к тексту в поле добавлено ММ с новой строки (#13#10)}

Memo3.Lines.Add(MМ) //добавление в конец поля с новой стоки ММ

end;

Компонент удобно использовать для представления текстовых данных из внешних файлов.

Компонент класса TListBox

Компонент класса TListBox панели Standard определяет стандартный для Windows список выбора, с помощью которого можно выбирать один или несколько элементов списка.

Основные свойства, события и методы:

Items: String – содержит набор строк, показываемых в компоненте;

ItemsIndex: Integer – содержит индекс элемента, имеющего фокус ввода;

Items.Add: (S: String) – добавляет элемент в список.

OnClick – щелчок по выбранному элементу списка.

OnDblClick - двойной щелчок по выбранному элементу списка.

Пример вывода в поле Label значение элемента списка.

Var Indx: Integer; //будет присвоен индекс выбранного элемента списка

...................................

procedure TForm1.ListBox1DblClick(Sender: TObject);

Ind:= ListBox1.ItemIndex; // индекс выбранного элемента списка

Label1.Caption:= ListBox1.Items[Ind]; //вывод по значению индекса

{вариант без непосредственного определения переменной Indx

Label1.Caption:= ListBox1.Items[ListBox1.ItemIndex];}

end;

Компонент класса TComboBox

Компонент классаTComboBox панели Standard определяет раскрывающийся список выбора. Представляет собой комбинацию списка TListBox выбора и текстового поля TEdit, большая часть его свойств и методов заимствована у этих компонентов.

Компонент класса TCheckBox

Компонент класса TCheckBox – флажок панели Standard используют для выбор решения тип Да/Нет/Не уверен (в последнем случае флажок выглядит бледным). В диалоговых окнах может быть несколько флажков, но состояние каждого из них не зависит от состояния остальных.

Основные свойства, события и методы:

Caption: String – надпись компонента;

State: TCheckBoxState – содержит состояние компонента: cbUnChecked – не установлен; cbChecked - установлен; cbGrayed – не уверен;

AllowGrayed: Boolean – разрешает/запрещает использовать состояние cbGrayed;

Checked: Boolean – содержит значение, соответствующее выбору пользователя; состоянию cbChecked соответствует значение True, состояния cbUnChecked и cbGrayed – False;

основные события OnClick, OnExit.

Достаточно часто состояние флажка используют с оператором условного перехода. If CheckBox1.Checked

then Оператор_1

else Оператор_2;

Состоянием флажка можно управлять программно, например:

CheckBox1.Checked:= True;

Компонент класса TRadioGroup

Компонент класса TRadioGroup панели Standard является контейнером, в котором располагается группа переключателей для выбора одного из нескольких взаимоисключающих решений. На рисунке 4.4 приведён контейнер с тремя переключателями и List Editor, позволяющий установить необходимое количество переключателей и их имена.

Рис. 4.4. Группа переключателей и редактор названий переключателей

Основные свойства:

Caption: String – надпись группы переключателей;

Items: String – содержит набор строк, определяющих название переключателей, активация свойства вызывает List Editor ввод названия приводит к добавлению переключателя;

ItemIndex: Integer – содержит индекс переключателя, выбранного по умолчанию, если значение ItemsIndex = 0, то выбран первый, если -1, то ни один из переключателей не выбран.

Ниже приведён фрагмент программного кода использования оператора выбора (Case) действий (оператор_j) при выборе переключателя по значению индекса переключателя (ItemsIndex).

.............................................

Case RadioGroup1. ItemIndex of

0: оператор_1; //если выбран Первый – выполняется оператор_1

1: оператор_2; //если выбран Второй – выполняется оператор_2

2: оператор_3; //если выбран Третий – выполняется оператор_3

end;

Компонент класса TButton

Компонент класса TButton панели Standard используют для управления программой.

Основные свойства и события:

Cancel: Boolean - если установлено значение True, событие OnClick возникает при нажатии клавиши Esc;

Default: Boolean - если установлено значение True, событие OnClick возникает при нажатии клавиши Enter;

OnClick - нажатие кнопки.

Компоненты класса TOpenDialog и TSaveDialog

Компоненты TOpenDialog и TSaveDialog панели Dialogs позволяют создать типовые диалоговые окна Windows выбора загружаемого файла и создание и сохранения файла.

Свойства и методы этих компонентов идентичны, поэтому рассматриваются вместе.

Метод Execute: Boolean – вызывает диалоговое окно загрузки или сохранения файла, при успешном выполнении возвращает true.

FileName: String – получает значение выбранного имени файла.

Filter – вызывает окно Filter Editor для задания расширение файла. В поле Filter Name указывают тип файла, а поле Filtr - расширение файла.

Title: String – свойство – определяет текст заголовка окна диалога, по умолчанию – Открыть или Сохранить как.

Файлы классифицируют как типизованные, текстовые и нетипизованные. В описании файловых переменных указывают тип файла:

Var <Ф_имя>: File of <тип>; {Типизованный файл}

<Ф_имя>: TextFile; {Текстовый файл}

<Ф_имя>: File;{Нетипизованный файл}

Типизованные файлы состоят из компонентов одного типа, кроме последнего, который является кодом Eof, определяющим конец файла.

Текстовые файлы представляют как последовательность кодов символов образующих строки, конец строки определяет код EoLn, конец файла определяет код Eof.

Нетипизованные файлы, о логической структуре файла нам ничего не известно, кроме Eof.

Дата добавления: 2014-11-29