Обычно, я использую файл с заголовком, который я затем загружаю в память, и использую его для поиска необходимой мне записи.
Type
TSaveHeader = Record scene : Integer; hotspots : LongInt; talk : LongInt; hype : LongInt; End; Var
SaveHeader : TSaveHeader; Procedure OpenSaveFile(fname : String); Var
f : File; i : Integer;Begin
AssignFile(f, fname); Reset(f, 1); BlockRead(f, SaveHeader, Sizeof(TSaveHeader)); { получаем один набор записи } Seek(f, SaveHeader.hotspots); For i := 1 To 50 Do BlockRead(f, somevar, sizeof_hotspotrec); { и так далее } CloseFile(f);End;
{ предположим, что файл открыт } Procedure GetHotspotRec(index : LongInt; Var hotspotrec : THotspot); Var
