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

[xproo100x]

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

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