Результат исследование студентов в проекте Работа с файлами Deiphi

Материал из НГПУ им. К.Минина
Версия от 10:10, 29 ноября 2011; Воловик Алена (обсуждение | вклад) (Результаты проведённого исследования)

Перейти к: навигация, поиск

Авторы и участники проекта

и участники группы Студенты

Тема исследования группы

Использование файлов для обработки учебной информации

Проблемный вопрос (вопрос для исследования)

Как использовать файлы для обработки учебной информации?


Цели исследования

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;

Вывод

Полезные ресурсы

Другие документы