Как обработать ошибку, в случае если в файл вносятся изменения вручную пользователем.
| Код |
procedure TNieL_Tree.LLastConf(FileName: String; Ctrl: Tanvil_TreeView);
var
L: TIntegerList;
F: TFileStream;
Cur: TTreeItem;
i: Integer;
begin
if FileExists(FileName) then
begin
F := TFileStream.Create(FileName, fmOpenRead);
try
if F.Size > 0 then
begin
L := TIntegerList.Create;
try
L.Read(F); { В случае если значение файла не действительное вылетает ошибка }
Cur := Ctrl.Items[0];
repeat
Cur := Cur.Next;
for i := 0 to L.Count - 1 do
if Cur.Tag = L[i] then
begin
Cur.CheckState := cbChecked;
if Cur.CheckState <> Cur.Parent.CheckState then
ClickItem(Ctrl, Cur);
end;
until
Cur = Ctrl.Items.GetLast;
finally
L.Free;
end;
end else
DefaultItemChecked(
Ctrl, cbChecked);
finally
F.Free;
end;
end else
DefaultItemChecked(
Ctrl, cbChecked);
end;
|
|