Скачать: CL | DM;

Считывание из файла   Найти похожие ветки 

← →
Nick-From ©   (2004-05-21 10:10) [0]

Такая весчь. Проекты считываются из файлов через TFileStream примерно так:

procedure r_LoadRatingsFromFile(FS: TFileStream; var aRatings: TRatings);
var
 len, i: integer;
begin
 FS.Read(len, SizeOf(integer));
 if len > 0 then
 begin
   SetLength(aRatings, len);
   for i := 1 to len - 1
     do FS.Read(aRatings[i], SizeOf(TRating));
 end;
end;

Это процедура считывания одной из опций проекта. Проблема в том, что к структуре проекта с недавних пор была добавлена дополнительная структура(опция) и соответственно при загрузке (и записи) проекта из файла были написаны процедуры для ее загрузки (сохранения). Эта структура(опция) пишется в файл самом конце после записи всех остальных опций проекта.
Но в большом количестве файлов старых проектов этой структуры еще нет и при попытке чтения этой новой структуры из файла прога виснет, т.к. файл-то кончился, а прога пытается читать. Как обойти - сделать так, чтобы прога видела, что новой структуры в файле пока нет и читать ее не надо?

---

← →
icWasya ©   (2004-05-21 10:19) [1]

if FS.Read(...) =0 then Exit;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c