Типизированные файлы. Чтение sz строки.

[Человек_Борща]

Доброго времени суток!

Есть некий файл. Я хочу написать к нему редактор.
Вот его описание:

int8/uint8 - Signed or Unsigned Byte (8 bits). C types: char, unsigned char
int16/uint16 - Signed or Unsigned Word (16 bits). C types: short, unsigned short
int32/uint16 - Signed or Unsigned Doubleword (32 bits). C types: int, unsigned int
sz - Zero-terminated C-style string

int16 - VERSION
uint16 - Bytes in first string (if 0, no entries)
sz - Name (read N bytes, where N is previous uint16)

Первые 4 байта читаю нормально:

procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  iVer, iNum: Integer;
begin
  FS := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'stats.dat', fmOpenReadWrite);
  try
    fs.Position := fs.Read(iVer, 2); //Версия
    Memo1.Lines.Add('version is ' + IntToStr(iVer));
    fs.Position := fs.Read(iNum, 2); //Длинна первой строки
    Memo1.Lines.Add('First string bytes = ' + IntToStr(iNum));
   {
    Как считать Zero-terminated C-style string 
   }
  finally
    fs.Free;
  end;
end;

в iNum есть значение 5, когда тектом там всего 4 буквы, и это понятно 5 т.к. там терминальный нуль.

Как считать?

ReadBuffer,Read в array[x..x] Of PChar или в array of Char, array of PChar выпадают в AV.

[Update]

    fs.Read(iNum, 2);  //uint16 - Bytes in first string
    fs.Seek(4,soFromBeginning);
    sName:=AllocMem(iNum);  //sname:array of PChar;
    try
    fs.ReadBuffer(sName,iNum); //sName становится больше чем iNum
    finally
      FreeMem(sName); //AV, раньше выкидывало в fs.free
    end;

[Аватар]

В D7 прочитал бы напрямую в String без нуля

var s: String;
...
  SetLength(s,iNum-1);
  fs.Read(s[1],iNum-1);
  fs.Position:=fs.Position+1;

ADD и iVer, iNum объявил бы как WORD если уж читаем по 2 байта

[Человек_Борща]

Благодарю. Все оказалось проще....