Ввод из окна ввода

Окно ввода — это стандартное диалоговое окно, которое появляется на экране в результате вызова функции inputBox. Значение функции inputBox —строка, которую ввел пользователь. В общем виде инструкция ввода данных с использованием функции InputBox выглядит так:

Переменная := InputBox(Заголовок, Подсказка, Значение);

где:

Переменная — переменная строкового типа, значение которой должно быть получено от пользователя;

Заголовок — текст заголовка окна ввода;

Подсказка — текст поясняющего сообщения;

Значение — текст, который будет находиться в поле ввода, когда окно ввода появится на экране.

Ниже в качестве примера приведена инструкция, используя которую можно получить исходные данные для программы пересчета веса из фунтов в килограммы. Окно ввода, соответствующее этой инструкции, приведено на рис. 1.5. s:=ItiputBox('Фунты-килограммы','Введите вес в фунтах','0'); Если во время работы программы пользователь введет строку и щелкнет на кнопке ОК, то значением функции inputBox будет введенная строка. Если будет сделан щелчок на кнопке Cancel, то значением функции будет строка, переданная функции в качестве параметра значение. Следует еще раз обратить внимание на то, что значение функции inputBox строкового (string) типа. Поэтому если программе надо получить число, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования. Например, фрагмент программы пересчета веса из фунтов в килограммы, обеспечивающий ввод исходных данных из окна ввода, может выглядеть так:

s := InputBox('Фунты-килограммы’,'Введите вес в фунтах’,') ;

font := StrToFloat(s);

Ввод из поля редактирования

Поле редактирования — это компонент Edit. Ввод данных из поля редактирования осуществляется обращением к свойству Text. На рис. 1.6 приведен вил диалогового окна программы пересчета веса из

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

данных. Инструкция ввода данных в этом случае будет иметь вид:

Funt := StrToFloat(Edit1.Text) ;

№30 Понятие файла. Обработка файлов в Delphi. Файловая переменная. Процедуры и функции для работы с файлами.

Файл — это именованная структура данных, представляющая собой последовательность элементов данных одного типа, причем количество элементов последовательности практически не ограничено. Для работы файлами в языке Delphi существует три файловых типа:

• Текстовые файлы Text File

• Файлы с типом File of <тип данных>

• Файлы без типа File

Полное имя файла: C:\Program File\Folder1\Students.dat

путь имя

Для того чтобы получить доступ к файлу его необходимо создать. Создание файла выполняется по средствам связи файла с особой переменной, называемой файловой переменной. Именно файловая переменная и характеризует тип файла. Связывание файла с файловой переменной производится с помощью стандартной процедуры AssignFile следующим образам: AssignFile(<файловая переменная>,<имя файла>)

Связывание файла с файловой переменной ещё не означает открытие этого файла.

Открытие файла производится следующими специальными функциями:

Procedure AssignFile(f,File Name); Связывает файловую переменную f с дисковым файлом File Name

Procedure Rewrite(f); Создает новый файл и открывает его для записи(вывода). Если файл существует, то он уничтожается и создается как новый

Procedure Reset(f); Открывает существующий файл для чтения. При его отсутствии возникает ошибка ввода(вывода)

Procedure Read(f,v1[,v2,…,vn]); Читает данные из файла и заносит их в переменные v1,v2,…,vn

Procedure Write(f,v1[,v2,…,vn]); Записывает данные из переменных v1,v2,…,vn в файл

Procedure Close File(f); Закрывает файл

Function Eof(f):Boolean; Возвращает True, если достигнут конец файла.

№32 Типизированные файлы. Процедуры и функции обработки типизированных файлов.

Файл состоит из любых однотипных компонент. В отличии от текстового файла, в типизированном файле допустим прямой доступ к любой записи, компоненту, при чем в рамках открытия файла допустимо как запись так и чтение записи.

Примеры объявления файловой переменной с типом:

Var F1:file of string [45];

F2: file of real;

F3: file of Persona_Ree;

При открытии файла указатель устанавливается в нулевую позицию- перед первой записью. После каждого чтения или вывода записи указатель автоматически устанавливается перед следующей компонентой.

Процедуры и функции для работы с типизированными файлами:

Procedure Seek (f: file of Type;N:longint);Перемещает указатель на запись с номером N. Первая запись имеет номер 0

Function File Pos (f: file of Type):longint;Возвращает номер записи на которую установлен указатель.

Function File Size (f):longint;Возвращает количество записей в файле

Seek (f, File Size (f));Устанавливает указатель в конец файла после последней записи.

Function Truncate (f: file of Type);Уничтожает(отсекает) конец файла начиная с записи на которой установлен указатель

№36 Классы. Инкапсуляция, наследование, полиморфизм. Составляющие класса: поля, методы.