Чтение записи из файла
Рассмотрим программу, демонстрирующую процесс чтения и обработки записей файла. Программа Чтение записей из файла, диалоговое окно которой представлено на рис. 8.4, а текст – в листинге 8.2, открывает файл, сформированный программой Добавление записи в файл, и, в зависимости от того, какой из переключателей все или выбрать – установлен, выводит список медалей, выигранных соответственно представителями всех стран или страны, название которой введено в поле Страна. Для вывода результата чтения из файла используется компонент Memo1.
Рис. 8.4. Окно программы Чтение записей из файла
Листинг 8.2. Чтение записей из файла.
unit rdrec_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCTRLs;
type
TForm1 = class(TForm)
RadioButton1: TRadioButton; // переключатель Все
RadioButton2: TRadioButton; // переключатель Выбрать
// текст Страна
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabe1;
procedure Button1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
ComboBox1: TComboBox; // комбинированный список
// для ввода названия страны
Memol: TMemo; // поле вывода записей, удовлетворяющих
// условию запроса
private
{ Private declarations } public
{ Public declarations } end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
type
// тип медали
TKind = (GOLD,SILVER,BRONZE);
// запись файла
TMedal = record
country:string[20]; sport:string[20];
person: string [40]; kind:TKind;
end;