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

[xproo100x]

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

Сообщение отредактировано: xproo100x - 7.06.2010 18: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

[Lapp]

то что seek это понятно...откуда мне узнать на какой из компанет нужная информация находится?

Искусство подменять первоначальный вопрос совсем другим.. На твой вопрос тебе был дан точный и исчерпывающий ответ.

так чтоли?

А где у тебя чтение? Оператор seek ничего не читает, он только позиционирут указатель на запись с данным номером. И, как уже сказал Client, если поиск идет подряд, то незачем использовать seek.

function FindFIO(code: integer): string;
var
  x: tx;
  f: file of tx;
begin
  FindFIO:='';
  Assign(f,'db.dat');
  Reset(f);
  while not EoF do begin
    Read(f,x);
    with x do if kod=code then begin
      FindFIO:=FIO;
      break
    end
  end;
  Close(f)
end;

Если бы твой файл был упорядочен по кодам, то можно было бы применить дихотомию. Вот тогда seek бы сыграл.

P.S.
И не надо использовать зарезервированные слова (file) для названия переменных..