Типизированный файл с прямым доступом, как организовать прямой доступ в типизированном файле Опции

[xproo100x]

Ребята, очень нужна помощь, искал на сайте не нашёл, киньте ссылку если тема уже была создана ранее или помогите тут!
Суть такова...существует файл(типизированный) в определённом куске программы его нужно вывести на экран, точнее одну запись, вопрос - как организовать прямой доступ к этому файлу?
заранее благодарен!

Сообщение отредактировано: xproo100x - 7.06.2010 22:53

[volvo]

вопрос - как организовать прямой доступ к этому файлу?

Ответ: Открыть файл Reset-ом и переместиться к нужной компоненте через Seek. Ключевые слова у тебя уже есть, теперь можно идти в поиск, уж о чем-о чем, а о файлах тем было немерено. Ищи и пробуй. Что не получится - спрашивай...

[xproo100x]

Ответ: Открыть файл Reset-ом и переместиться к нужной компоненте через Seek.

то что seek это понятно...откуда мне узнать на какой из компанет нужная информация находится?
в общих чертах:
выводится на экран информация о магазинах, а фамилия директора берётся из справочного файла(типизированный файл с прямым доступом)
в эту процедуру поиска фамиилии забирается код магазина и вот по этому коду нужно найти фамилию.

Или мне нужно создать цикл где seek(...,i) и он рано или поздно придёт на нужное...так?

Добавлено через 13 мин.

Function FindFIO(a:integer):string;
   var x: ...;(тот же тип что и file)
begin
   reset(file)
   read(file,x)
   for i:=0 to filesize(file) do
      begin
         seek(file,i);
         if x.kod=a then FindFIO:=x.fio  {kod - код магазина, fio ФИО директора}
      end;
end;

так чтоли?

М

Тэги!! Lapp