Чтение данных в массив из файла с помощью FileStream

[Nater]

Вообщем, может для кого-то и будет просто, но у меня не выходит.

Записываю в файл массив

  tar: array[0..19,0..19] of TTileData;
type TTileData = record
    SpriteID: smallint;
    ObjectID: smallint;
    ZoneID: byte;
  end;

procedure TForm3.savebrtnClick(Sender: TObject);
var
 FileStream: TFileStream;
  Writer: TWriter;
  I: Integer;
 begin
 FileStream := TFileStream.Create('C:\Users\admin\Documents\wallpapersgenproject\test.map',
    fmCreate or fmOpenWrite or fmShareDenyNone);
  Writer := TWriter.Create(FileStream, $FF);
  Writer.WriteListBegin;
    Writer.Write(tar,sizeof(tar));
  Writer.WriteListEnd;
  Writer.Free;
  FileStream.Free;
end;

Как обратно считать файл в аналогичный пустой массив? Помогите пожалуйста.

[evg_m]

Как обратно считать файл

очевидно использовать не запись(Write) а чтение(Read)
во всех нужных местах.

[Nater]

Это не приводит к результату. Ошибку выкидывает. Хотя, думаю попробую еще раз.

[evg_m]

Это не приводит к результату.

значить нужно почитать справку
для чего нужны были использованные вами при записи методы.
и подумать какие методы надо использовать при чтении.

Ошибку выкидывает.

тот код который вы НЕ привели? и неизвестную ошибку?

[Nater]

перед тем как написать на форум неработающий код я удалил, привычка такая)

Вру, все-таки не удалил

  FileStream := TFileStream.Create('C:\Users\admin\Documents\wallpapersgenproject\test.map',
    fmOpenRead);
  Reader := TReader.Create(FileStream, $FF);
  Reader.ReadListBegin;
  Reader.Read(TilesArray,sizeof(TilesArray));
  Reader.ReadListEnd;
  Reader.Free;
  FileStream.Free;

Stream Reads Error.

На какой строке получается ошибка не показывает.
А если так делать, то index out of bounds, значит что-то с числами не так, поэтому и спрашивал правильный код.

  FileStream := TFileStream.Create('C:\Users\admin\Documents\wallpapersgenproject\test2.map',
    fmOpenRead);
  Reader := TReader.Create(FileStream, $FF);
  FileStream.Position := 0;
  FileStream.Read(TilesArray,sizeof(tilesarray));

[northener]

А зачем вообще нужны TReader/TWriter в данном случае, при записи/чтении банального массива банальных записей?
Обычных TFileStream.Read/TFileSream.Write недостаточно?

[Nater]

Я не особо дружу с файлами, если честно, до этого не особо приходилось работать с ними. Поэтому сделал так, как смог был бы признателен если бы вы показали мне пример с TFileStream.Read/Write

Все, вроде справился. Правда, ща еще с размерами придется повозиться, но в целом работает. Спасибо.

[northener]

 FileStream := TFileStream.Create('C:\Users\admin\Documents\wallpapersgenproject\test.map',
    fmCreate or fmOpenWrite or fmShareDenyNone);
  FileStream.Write(tar,sizeof(tar));
  FileStream.Free;

Чтение аналогично.