Проблема с чтением файла (TFileStream)

Posted by obzor under Delphi

Пишу программу, которая должна уметь сохранять и читать данные из файла (обязательно через TFileStream), при этом часть данных представлена в виде двумерного динамического массива.

С сохранением проблем нет (вроде бы, хотя утверждать не берусь — одним WinHex-ом многое не расскажешь), проблема с чтением файла. В чем именно она заключается — я не знаю, и уже перепробовал буквально все.
Самое странное, что запись и чтение — два практически идентичных метода (различие только в Read/Write), поэтому у меня уже даже предположения закончились по поводу того, где может быть косяк.

В общем, я надеюсь на вашу помощь, потому как других вариантов у меня уже просто нет.

Stilet

TMatrix = array of array of String;
...
procedure Save(FileName:String;a:TMatrix);
var i,j,l:integer;
begin
 With TFileStream.Create(FileName,fmCreate) do begin
  l:=Length(a);  WriteInteger(l,sizeof(l));
  l:=Length(a[Low(a)]); WriteInteger(l,sizeof(l));
  for i:=Low(a) to High(a) do begin
   for j:=Low(a[ i]) to High(a[ i]) do begin
    l:=Length(a[ i,j]); WriteInteger(l,sizeof(l));
    WriteBuffer(a[ i,j][1],Length(a[ i,j]));
   end;
  end;
  Free;
 end;
end;
...
procedure Load(FileName:String;var a:TMatrix);
var i,j,l,w:integer;
begin
 With TFileStream.Create(FileName,fmOpenRead) do begin
  ReadInteger(l,sizeof(l));
  readInteger(w,sizeof(w));
  SetLength(a,l,w);
  for i:=Low(a) to High(a) do begin
   for j:=Low(a[ i]) to High(a[ i]) do begin
    ReadInteger(l,sizeof(l));
    SetLength(a[ i,j],l);
    ReadBuffer(a[ i,j][1],l);
   end;
  end;
  Free;
 end;
end;

В качестве предложения по сериализации.
P.S. Не проверял.

тема на форуме

Случайные статьи

• Русские буквы в Консольном приложении Lazarus
• Рассылка. Выпуск 212
• Загрузка из txt файла структуры, содержащую tstringlist
• Уменьшить картинку в два раза
• Упаковщики. Есть ли лучший?
• Вставка произвольных непечатных символов перед шифрованием и удаление рандомных знаков после расшифровки
• Защита от накрутки просмотров в битрикс
• Как отправить пост-запрос в дельфи на сервер, и получить от сервера ответ?
• Как сделать выпадающий список с добавлением новых элементов?
• Функция загрузки csv в stringrid