Результат исследование студентов в проекте Работа с файлами Deiphi
Содержание
Авторы и участники проекта
и участники группы Студенты
Тема исследования группы
Использование файлов для обработки учебной информации
Проблемный вопрос (вопрос для исследования)
Как использовать файлы для обработки учебной информации?
Цели исследования
1.Выяснить, какие процедуры служат для работы с файлами 2.Составить алгоритм и программу для решения задачи обработки учебной информации 3.Выполнить анализ результатов
Результаты проведённого исследования
Для демонстрации возможностей Delphi при работе с файлами нами была выбрана следующая задача:
Создать файл, содержащий сведения о студентах. Каждая запись должна содержать: номер по списку, фамилию, имя, отчество; год рождения; адрес. Выбрать сведения о студентах, проживающих в Нижнем Новгороде.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
f: TextFile; // файл
fStudent: String[80]; // имя файла
iStudent: integer;
begin
fStudent:=Edit1.Text;
AssignFile(f, fStudent);
Rewrite(f);
for i:=0 to 15 do
if StringGrid1.Cells [3,i]= 'Нижний Новгород' then writeln(f,StringGrid1.Cells [1,i]);
CloseFile(f); // закрыть файл
ShowMessage('Данные ЗАПИСАНЫ в файл ');
end;
