With StringGrid1 do

Begin

cells[0, 0]:='ФИО';

cells[1, 0]:='Возраст';

cells[2, 0]:='Рост';

cells[3, 0]:='Цвет глаз';

cells[4, 0]:='Цвет волос';

cells[5, 0]:='Зарплата';

cells[6, 0]:='Машина';

cells[7, 0]:='Квартира'

End

End;

3. Активизируем мышью кнопку “ Создание типизированного файла” и в появившемся обработчике запишем текст:

procedure TForm1.Button1Click(Sender: TObject);

type sz=record

fio:string[15];

vozr,rost:integer;

cg:string[10];

cv:string[9];

zp:integer;

car,kv:string[3]

end;// sz

var st,r:string; rzap:sz; i:integer; f1:TextFile;

f2:file of sz;

Begin

AssignFile(f1,'is.txt');

AssignFile(f2,'s1.dat');

Reset(f1);rewrite(f2);

While not SeekEof(f1) do

Begin readln(f1,st);

rzap.fio:=copy(st,1,15);

r:=copy(st,16,2);rzap.vozr:=StrToInt(r);

r:=copy(st,19,3);rzap.rost:=StrToInt(r);

rzap.cg:=copy(st,23,10);

rzap.cv:=copy(st,33,9);

r:=copy(st,42,5);rzap.zp:=StrToInt(r);

rzap.car:=copy(st,48,3);

rzap.kv:=copy(st,52,3);

Write(f2,rzap)

End;

CloseFile(f1); CloseFile(f2);

reset(f2); i:=0;

While not eof(f2) do

begin read(f2,rzap); i:=i+1;

With StringGrid1 do

begin Cells[0,i]:=rzap.fio;

Cells[1,i]:=IntToStr(rzap.vozr);

Cells[2,i]:=IntToStr(rzap.rost);

Cells[3,i]:=rzap.cg;

Cells[4,i]:=rzap.cv;

Cells[5,i]:=IntToStr(rzap.zp);

Cells[6,i]:=rzap.car;

Cells[7,i]:=rzap.kv

End

End

End;

4. Запустим программу. Если тексты обработчиков событий введены правильно, на экране появится форма в таком виде таблицы с “шапкой”:

5. Нажмем кнопку “Создание типизированного файла ”. В результате появится форма в виде таблицы, заполненной содержимым сформированного типизированного файла S1.dat

6. Завершим работу программы нажатием кнопки “ Выход ”.

Date: 2015-07-25; view: 380; Нарушение авторских прав