VPF::Изменения значения поля типизированного файла

Xeim

Дата 28.11.2008, 23:42 (ссылка)

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

Загрузка ...

Бывалый

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

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

Внимание! Бинарные файлы!

Написал такой код. Он умеет на выбор:
1. Писать в бинарный файл строку с заданными (с клавиатуры) значениями. Потом еще и еще.
2. Считывать какую-то страку. Какую - понятия не имею.

Вопрос в следующем. Как мне прочитать из файла нужную мне строку?
Как изменить значение(или добавить) в нужную строку?

Помогите пожалуйста!

Код


program countries;
type
   Countries = record
      name              : string[20];
      area              : integer;
      people            : integer;
      capital           : string[20];
      money             : string[3];
      federatedState    : boolean;
      populationDensity : double; {Вычисляется}
   end;
   FT = file of Countries;
var
   include   : Byte;
   F         : FT;
   FBuf      : Countries;
begin
   writeln('1-Запись 15 записей');
   writeln('2-Считывание,расчет,запись');
   writeln('3-Сортировка');
   writeln('4-Форма вывода данных');
   writeln('5-Дозапись 2 записей');
   writeln('6-Поиск по запросам, вывод в форме');
   writeln('Введите цифру для выполнения необходимого действия: ');
   readln(include);
   case include of
      1:begin
         writeln('1-Запись 15 записей');
         Assign (F, 'base.sql'); {расширение .sql было выбрано совершенно условно}
         Rewrite (F);
   
         Write ('Please, enter name, area, people, capital, money, federatedState: ');
         ReadLn (FBuf.name, FBuf.area, FBuf.people, FBuf.capital, FBuf.money, FBuf.federatedState);
         Write (F, FBuf);
         Close (F);
      end;
      2:begin
         writeln('2-Считывание,расчет,запись');
         Assign (F, 'base.sql');
         Reset(F);
         Read(F,FBuf);
         Write (FBuf.name);
         Close (F);
      end;
      3: writeln('Данная возможность находится в разарботке');
      4: writeln('Данная возможность находится в разарботке');
      5: writeln('Данная возможность находится в разарботке');
      6: writeln('Данная возможность находится в разарботке');
   else writeln('Введена неверная цифра!');
   end;
end.

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