close

Вход

Забыли?

вход по аккаунту

?

Пример файлы1

код для вставкиСкачать

Лабораторная работа
Работа с файлами
Задание: Имеется текстовый файл в котором хранятся сведения с фамилиями студентов и оценками по трем экзаменам.
Требуется:
1) вывести текстовый файл в Мемо;
2) из текстового файла создать типизированный файл;
3) вывести типизированный файл в Мемо;
unit Un_form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit1;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
F1:Textf; { файловая переменная для текстового файла}
F2:Typef; { файловая переменная для типизированного файла }
str:Tstud;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(F1,'stud.txt'); {Связывает файловую переменную с именем физич-ого файла}
AssignFile(F2,'typefile');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
reset(F1); { Открывает файл для чтения}
while not Eof(F1) do {Пока не конец файла}
begin
readln(F1,s);
Memo1.Lines.Append(s);
end;
CloseFile(F1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Sozd_TypeFile(F1,F2);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Memo1.Clear;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
CloseFile(F1);
CloseFile(F2);
DelTypeFile('typefile');
Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
str:Tstud;
begin
reset(F2);
while not Eof(F2) do
begin
read(F2,str);
Memo1.Lines.Append(str.fam);
Memo1.Lines.Append(IntTostr(str.oz.matem));
Memo1.Lines.Append(IntTostr(str.oz.fiz));
Memo1.Lines.Append(IntTostr(str.oz.progr));
end;
end;
end.
unit Unit1;
interface
uses
Sysutils,Dialogs,Stdctrls;
Type
ball=record
matem:byte;
fiz:byte;
progr:byte;
end;
Tstud=record
fam:string[10];
oz:ball;
end;
Textf=TextFile;
Typef=file of Tstud;
Procedure Sozd_TypeFile(var F1:Textf;var F2:Typef);
Procedure DelTypeFile(s:string);
implementation
Procedure Sozd_TypeFile(var F1:Textf;var F2:Typef);
Var
str:Tstud;
s:string;
Begin
reset(F1);
rewrite(F2); { Открывает файл для записи}
while not Eof(F1) do
begin
readln(F1,s);
str.fam:=s;
readln(F1,s);
str.oz.matem:=StrToint(s);
readln(F1,s);
str.oz.fiz:=StrToint(s);
readln(F1,s);
str.oz.progr:=StrToint(s);
Write(F2,str);
end;
CloseFile(f2);
End;
Procedure DelTypeFile(s:string);
Begin
If Fileexists(s) then deletefile(s)
End;
End.
Документ
Категория
Рефераты
Просмотров
7
Размер файла
56 Кб
Теги
файлы, пример
1/--страниц
Пожаловаться на содержимое документа