Считывание из файла

← →
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;

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