Программирование на Delphi 7

t: tpers; s: string;

. . .

procedure TForm6.Button3Click(Sender: TObject);

// Запись типизированных данных в файл

begin

// Задаем переменную-запись

t.fam:='Петров'; t.name:='Василий'; t.year:=18; t.height:=58.2;

AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

// можно так:

rewrite(f); // Создаем файл заново

// или так:

// reset(f); // Открываем существ. типизированный файл на чтение и запись

// seek(f,strtoint(edit1.Text)); // Перемещаемся на любую нужную запись

write(f,t); // Сохраняем запись в текущей позиции в файле

CloseFile(f); // Закрываем файл

end;

4. Чтение типизированных данных из файла

procedure TForm6.Button4Click(Sender: TObject);

// Чтение типизированных данных из файла

begin

// Задаем переменную-запись

memo1.Clear; // Очистка мемо-поля

AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

reset(f); // Открываем файл на чтение

while not eof(f) do begin // Пока не конец файла – цикл

read(f,t); // Читаем запись из файла

// Заносим считанные данные в мемо-поле

memo1.Lines.add(t.fam);

memo1.Lines.add(t.name);

memo1.Lines.add(inttostr(t.year));

memo1.Lines.add(floattostr(t.height));

end;

CloseFile(f); // Закрываем файл

end;

5. Чтение записи из типизированного файла

procedure TForm6.Button5Click(Sender: TObject);

// Чтение записи из типизированного файла с данными

begin

// Задаем переменную-запись

memo1.Clear; // Очистка мемо-поля

try

AssignFile(f,'d:\1.dat'); // Связь файловой переменной с файлом на диске

reset(f); // Открываем файл на чтение

try

// Пример с чтением конкретной записи

seek(f,strtoint(edit1.text)); // Переход на нужную запись (с нуля)

read(f,t); // Читаем запись из файла

memo1.Lines.add(t.fam); // Заносим считанную строку записи в мемо-поле

except

showmessage('Нет такой записи!');