Нетипизированный файл

[OrdJONY]

Помогите как можно сделать нетипизированный файл вот такого формата:
1 байт значение от 0 до 255, 2 байта значение от 0 до 65000, 1 байт значение от 0 до 255, 4 байта значение от 0 до максимум сколько можно поместить в 4 байта. А далее будет следовать данные размер которых указан в последнем значении (4-ех байтах). Только это нужно записать все не в файл, а в какой-то буфер, т.е. в память и потом как прочитать такую структуру??

[Квэнди]

Так в чем проблема ? используй записи

[OrdJONY]

Так а потом надо добавить эти данные размер которых заранее неизвестен. Как сделать??

[Квэнди]

Ничего не понятно, что именно вызывает затруднение ? заполнение одной записи ? заполнение массива записей ? запись массива записей в файл ? чтение массива записей из файла ?

[OrdJONY]

Ту структуру можно занести в запись, с этим проблем нет. А потом должно быть данные они не известного заранее размера. Это может быть 2 байта, 4, 8 или 16 байт неизвестно! Это все и эти данные нужно записать в буфер (или файл), а потом как-то прочитать.

[zetrix]

после того, как мы записали определённые данные, пишем размер "пакета" следующих данных, и всё. В итоге наша прога читает число, потом считывает столько, сколько указано в этом числе.

[OrdJONY]

Сообщение от zetrix

после того, как мы записали определённые данные, пишем размер "пакета" следующих данных, и всё. В итоге наша прога читает число, потом считывает столько, сколько указано в этом числе.

В последнии 4 байта и указывают на размер "пакета". Только напишите плиз кодик как такое сделать, чтобы записывать не в файл, а какой-то буфер (в память)

[pu4koff]

обычно размер указывают в начале, а не в конце и вапще смысл в конце писать размер, если мы должны в конец перейти, а соответственно и размер знать или там мусор какой содержица до последних 4 байт, что нам размер нужен? а так можно поюзать TMemoryStream

[OrdJONY]

Сообщение от pu4koff

или там мусор какой содержица до последних 4 байт, что нам размер нужен? а так можно поюзать TMemoryStream

Да разный мусор Объясните поподробней как пользоватся TMemoryStream?

[pu4koff]

допустим в файле записано несколько integer'ов. Подсчитать их сумму можно так:

var
  m: TMemoryStream;
  i,j: integer;
begin
  m := TMemoryStream.Create;
  m.LoadFromFile('C:\123.txt');
  i := 0;
  while m.Read(j,sizeof(i)) > 0 do i := i + j;
  m.Free;

для работы с файлами есть исчо TFileStream. Перейти в какую-либо позицию: Seek. ну и писать ес-но Write. в Read и Write передаеца буфер со значением и кол-во байт читаемых/записываемых возвращаеца сколько прочтено/записано