Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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. Завершим работу программы нажатием кнопки “ Выход ”.
Дата публикования: 2014-11-18; Прочитано: 183 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!