Простейшая БД, Курсовая Опции

[murphy]

Нужен совет.

Есть типизированый файл записей. Из него надо в память загнать записи (потом их еще сортировать надо будет и тд. ...).

Вопрос:
Как это лучше зделать?

З.Ы.
обычным массивом не хочеться

[Romtek]

Считываешь записи как обычно, а вот динамический массив создать лучше так:

type
   TInfo = record
     Age:  integer; { возраст }
     Name: string [20];
   end;
   Tarr = array[0..0] of TInfo;

Var
  Ptr: ^Tarr; {указатель на дин. массив}
  Info: TInfo;
  Nrec: integer;

...
Nrec := FileSize div SizeOf (TInfo); { узнаём кол-во записей в файле }

GetMem(Ptr, Nrec * SizeOf (TInfo));
...
{
 считываем из файла, Ptr^[i] := Info; - считанную запись заносим в память
 сортируем
 записываем обратно или ещё куда-то
}
...
FreeMem(Ptr, Nrec * SizeOf (TInfo));
...

Как сортировать смотри в Как упорядочить данные по возрастанию?

Сообщение отредактировано: Romtek - 17.11.2005 0:39