VPF::Бинарные файлы - чтение\запись

Xeim

Дата 27.11.2008, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 186
Регистрация: 17.11.2005

Репутация: нет
Всего: 0

Привидите пожалуйста пример как работать с бинарными файлами. Требуется сделать что-то вроде базы данных.

volvo877

Дата 27.11.2008, 09:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

В самом низу страницы есть список "А здесь смотрели?" + Поиск по разделу никто не отменял...

P.S. Для создания базы данных используются типизированные файлы, которые хранят записи, можешь использовать это как подсказку для поиска.

Веталька

Дата 29.11.2008, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

делал лабу по информатике вот условие: создать файл с даніми про сотрудников компании потом прочитать их и вівисти младшего и старшего сотрудника

код:

Код


program lab7;

type entry = record
             name, adres : string;
             year, misac,day : integer;
     end;
var
    m: array [1..50] of entry;
    i,n,min,max,vikmol,vikst,nom : integer;
    F1:text;
begin
     writeln('на скількох співробітників розрахована база даних?'); readln(n);

         for i :=1 to n do
           begin
            writeln('імя');readln (m[i].name);
            writeln('дата народження');
            writeln('рік');readln (m[i].year);
            writeln('місяць');readln (m[i].misac);
            writeln('день');readln (m[i].day);
            writeln('адреса'); readln (m[i].adres);
            writeln('анкета на ',i,'-го співробітника заповнена')
           end;



begin
Assign (F1,'D:\data.dat');
Rewrite(F1);
for i:=1 to n do
begin

writeln(F1,m[i].name);
writeln(F1,m[i].year);
writeln(F1,m[i].misac);
writeln(F1,m[i].day);
writeln(F1,m[i].adres);
end;
end;
close(F1);

  writeln('_-_-_-_-_-_-_-_-_');


Assign (F1,'D:\data.dat');
Reset(F1);


while not Eof(f1)do

for i:=1 to n do
begin
readln (F1,m[i].name);
readln (F1,m[i].year);
readln (F1,m[i].misac);
readln (F1,m[i].day);
readln (F1,m[i].adres);
end;



            min := m[i].year;
            max := m[i].year;
        for i:=1 to n do
           begin
                if m[i].year > max then max := m[i].year;
                if m[i].year < min then min := m[i].year;
           end;

             writeln('Наймолодший співробітник народився в  ',max,' році');

             writeln ('Найстарший співробітник народився в  ',min,' році');

close(F1);

end.

--------------------

Ради зачета студент идет на все, даже на лекции........................

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »