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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
(Полезные ресурсы)
(Вывод)
 
(не показано 10 промежуточных версий 2 участников)
Строка 17: Строка 17:
  
 
==Результаты проведённого исследования==
 
==Результаты проведённого исследования==
 +
 +
Для демонстрации возможностей 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.
 +
 +
'''Анализ результатов по выполненной работе:'''
 +
Нами была придумана задача по работе с файлами. Также был придуман пример. Результаты работы программы на этом примере совпали с ожидаемыми.
  
 
==Полезные ресурсы==
 
==Полезные ресурсы==

Текущая версия на 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.

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

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

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