Изучение работы с файлами на языке Delphi (47061)

Посмотреть архив целиком

Министерство образования и науки Российской Федерации

Курский государственный технический университет

Кафедра ПО ВТ





Изучение работы с файлами на языке Delphi












Выполнил: студент гр. ПО 62 Шиляков И.А.

Проверил: ст. преподаватель Петрик Е.А.








Курск

2006


Цель:

Изучение принципов работы с файлами на языке Delphi, получение навыков программирования с использованием файлов.


Задание:


Создать каталог продуктов.


Окно программы:


Используемые компоненты:

Имя компонента

Страница палитры компонентов

Настраиваемые компоненты

Значения

1

2

3

4

5

1


Form1


-

Сaption

Лабораторная работа №10

Color

clMoneyGreen

2

Bitbtn1

Additional

Caption

Удалить по наименованию




3




Label1




Standard


Caption

Введите продукты и их стоимость

Color

clMoneyGreen

Color (Font)

clNavy

Size (Font)

12

Charset (Font)

DEFAULT_CHARSET

Height (Font)

-16



Продолжение таблицы

1

2

3

4

5



4



Label2



Standard

Caption

Общая сумма

Color

clMoneyGreen

Color (Font)

clNavy

Size (Font)

10

Charset (Font)

DEFAULT_CHARSET

Height (Font)

-13


5


Button1


Standard

Caption

Открыть

Charset

BALTIC_CHARSET

Height

-11

Size

8


6


Button2


Standard

Caption

Сохранить

Charset

BALTIC_CHARSET

Height

-11

Size

8



7



Button3



Standard

Caption

Расчет

Charset

DEFAULT_CHARSET

Height

-11

Size

8

Name

MS Sans Serif



8



Button4



Standard

Caption

Добавить строку

Charset

DEFAULT_CHARSET

Height

-11

Size

8

Name

MS Sans Serif



9



Button5



Standard

Caption

Поиск

Charset

DEFAULT_CHARSET

Height

-11

Size

8




Name

MS Sans Serif

10

Edit1

Standard

Text

tt.text

11

Edit2

Standard

Text


12

Edit3

Standard

Text


13

Edit4

Standard

Text




14



StringGrid1



Additional

FixesCols

0

FixesRows

1

RowCount

11

ColCount

16

Options

[goEditing, goTab]

FixedColor

clSkyBlue

Текст программы:


unit Unit1;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, Buttons;

type

s30=string[30];

P = record

tovar: string[30];

money: integer;

kol: integer;

itogo: integer;

end;

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

Button3: TButton;

Edit2: TEdit;

Label2: TLabel;

BitBtn1: TBitBtn;

Edit3: TEdit;

Button4: TButton;

Button5: TButton;

Edit4: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation


{$R *.dfm}


function poisk(istochnik,chto:s30):boolean;

var i,k:integer;


procedure poisk2(B,M:s30);

var k:integer; b1:boolean;

begin

i:=0;

while length(b)>=length(m)+i do

begin

b1:=true;

for k:=1 to length(m) do begin

if m[k]=b[k+i] then else b1:=false;

end;

if b1=true then begin poisk:=b1; exit; end; i:=i+1;

end;


end;


begin

if length(istochnik)>=length(chto) then

poisk2(istochnik,chto)

else

poisk2(chto,istochnik);

end;


procedure TForm1.Button2Click(Sender: TObject);

var i:integer; s:string; z:p;

f: file of p;

begin

s:=edit1.Text;

system.Assign(f,s); // íàçíà÷àåòñÿ èìÿ ôàéëîâîé ïåðåìåííîé

rewrite(f); // ñîäàíèå ïóñòîãî ôàéëà, óêàçàòåëü óñòàí. íà íóëåâîé ýë-ò

for i:=1 to stringgrid1.RowCount do if (stringgrid1.Cells[0,i]<>'') then

begin

z.tovar:=stringgrid1.cells[0,i];

z.money:=strtoint(stringgrid1.cells[1,i]);

z.kol:=strtoint(stringgrid1.cells[2,i]);

write(f,z); // çàïèñü â ôàéë f çàïèñè z

end;

system.close(f);

end;


procedure TForm1.Button1Click(Sender: TObject);

var i:integer; z:p;

f: file of p;

begin

i:=1;

system.Assign(f,edit1.Text);

reset(f); // îòêðûòü ôàéë

while not eof(f) do

begin

read(f,z);

stringgrid1.cells[0,i]:=z.tovar;

stringgrid1.cells[1,i]:=inttostr(z.money);

stringgrid1.cells[2,i]:=inttostr(z.kol);

stringgrid1.RowCount:=i+1;

i:=i+1;

end;

system.close(f);


end;


procedure TForm1.FormCreate(Sender: TObject);

begin

stringgrid1.Cells[0,0]:='Òîâàð';

stringgrid1.Cells[1,0]:='Ñòîèìîñü';

stringgrid1.Cells[2,0]:='Êîë-âî';

stringgrid1.Cells[3,0]:='Èòîãî';

end;

procedure TForm1.Button3Click(Sender: TObject);

Var i:integer;

begin

edit2.Text:='0';

for i:=1 to stringgrid1.RowCount-1 do

begin

stringgrid1.cells[3,i]:=Floattostr(strtoint(stringgrid1.Cells[1,i])*(strtoint(stringgrid1.Cells[2,i])));

edit2.Text:=floattostr(strtofloat(stringgrid1.cells[3,i])+strtofloat(edit2.text));


Случайные файлы

Файл
130976.rtf
86302.rtf
118328.rtf
54453.doc
59647.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.