| 128 |  | if Opened then | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 129 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 130 |  | CacheFile; | 
 
 
 
 
 
 
 
 
 
 
 | 131 | < | CacheRawFile($18); | 
 
 
 
 
 
 
 
 
 | 131 | > | CacheAllRawFiles; | 
 
 
 
 
 
 
 
 
 
 
 | 132 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 133 |  | FFileStream.Seek($1C, soFromBeginning); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 134 |  | FFileStream.Read(i, 4); | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 143 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 144 |  | FFileStream.Seek($20 + i*4, soFromBeginning); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 145 |  | FFileStream.Read(offset, 4); | 
 
 
 
 
 
 
 
 
 
 
 | 146 | < | FRawCaches[0].Seek(offset, soFromBeginning); | 
 
 
 
 
 
 
 
 
 | 146 | > | FRawCaches[0].RawStream.Seek(offset, soFromBeginning); | 
 
 
 
 
 
 
 
 
 
 
 | 147 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 148 |  | SetLength(temps, 200); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 149 |  | pos := 0; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 150 |  | repeat | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 151 |  | Inc(pos); | 
 
 
 
 
 
 
 
 
 
 
 | 152 | < | FRawCaches[0].Read(temps[pos], 1); | 
 
 
 
 
 
 
 
 
 | 152 | > | FRawCaches[0].RawStream.Read(temps[pos], 1); | 
 
 
 
 
 
 
 
 
 
 
 | 153 |  | until temps[pos] = #0; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 154 |  | SetLength(temps, pos - 1); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 155 |  | grid.Cells[j, i+1] := temps; |