Просмотр кода страницы Результат исследование студентов в проекте Работа с файлами 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;
[[Изображение:наслд.jpg]]
[[Изображение:онвшл.jpg]]

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

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

==Полезные ресурсы==
*[http://udelphi7.gym5cheb.ru/ Учебник по Delphi 7 для начинающих]
*[http://delphi.support.uz/ Иллюстрированный онлайн учебник по Borland Delphi 7 с примерами]

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


[[Категория:Проекты]]