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

[xproo100x]

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

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

[Client]

ну раз надо найти, то придется по очереди перебирать, пока не найдешь. Лучше просто read, без seek

[xproo100x]

ну раз надо найти, то придется по очереди перебирать, пока не найдешь. Лучше просто read, без seek

просто перебирать это последовательный!а мне нужен прямой...как то через seek...

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

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

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

1.Сортировка есть в отдельной процедуре вот код...проблема в том как потом в функции это всё дело находить через seek, очень прошу помочь!

{$R-}
procedure sort;
type
  list=array[1..1] of tplus;
  MyList=^list;
var i,j,n: integer;
    buf: tplus;
    fplus: file of tplus;
    mas: MyList;
    ind: boolean;
begin
  assign(fplus,'DOP.DAT');
  reset(fplus);
  n:=filesize(fplus);
  getmem(mas,(n+1)*sizeof(TPlus));
  i:=1;
  while not eof(fplus) do
    begin
      read(fplus,mas^[i]);
      inc(i);
    end;
  repeat
    ind:=true;
    for i:=1 to n-1 do
      if mas^[i].kod>mas^[i+1].kod then
          begin
            buf:=mas^[i];
            mas^[i]:=mas^[i+1];
            mas^[i+1]:=buf;
            ind:=false;
          end;
  until ind;
  close(fplus);
  rewrite(fplus);
  for i:=1 to n do begin write(fplus,mas^[i]);

                    end;
  close(fplus);
  reset(fplus);
  freemem(mas,(n+1)*sizeof(TPlus));
end;
{$R+}

2.Учёл, больше не буду

Сообщение отредактировано: xproo100x - 8.06.2010 12:26

[Lapp]

просто перебирать это последовательный!а мне нужен прямой...как то через seek...

А, так вот, в чем дело.. )) Ты запутался в терминологии..

Есть такие два понятия: "файл прямого доступа" и "файл последовательного доступа".
Типизированный файл относится к первому типу. Файл типа Text, например - ко второму.
А дальше - хоть как их используй, свой тип они не поменяют..
Если ты перебираешь, например, элементы массива подряд (тоже ищешь нужный) - что, он у тебя теперь "массив последовательного доступа"?

seek нужно применять там, где нужно. Что, файл прямого доступа теперь уже нельзя подряд читать? ))) Или для чтения следующей записи нужно обязательно использовать seek????

Короче, наведи порядок с терминами в своей голове сначала.

и еще, что ты хотел сказать этим:

1.Сортировка есть в отдельной процедуре вот код...

Меня не интересует, в какой она процедуре и какой там код. Меня вообще не интересует, был ли файл отсортирован, или, может, создан уже в таком порядке. Меня интересует только результат: расположены ли его записи в порядке возрастания (убывания) поля Код. Все. Если ты говоришь "да" - я (или кто-то еще тут) тебе показываю, как использовать seek для быстрого поиска.

Давай, разбирайся