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

Материал из НГПУ им. К.Минина
Версия от 11:05, 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; Наслд.jpg Онвшл.jpg

Вывод

Процедуры в Delphi для работы с файлами: AssignFile, CloseFile,Reset,Rewrite,Read,Readln,Write,Writeln.

Анализ результатов по выполненной работе: Нами была придумана задача по работе с файлами. Также был придуман пример. Результаты работы программы на этом примере совпали с ожидаемыми.

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

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