Как бороться с AV

← →
TCrash © (2003-06-03 14:43) [0]

имеется TListView.при выполнении кода
procedure TForm3.ListAdminsClick(Sender: TObject);
var
p: PAdmin; //указатель но структуру
i:integer;
b:boolean;

procedure eav;
var i:integer;
begin
..................
end;
begin
b:=false;
try
p:=ListAdmins.Selected.Data;
except
on EAccessViolation do eav
end;
if b then exit;
.................
end;

выскакивет AccessViolation (если клик происходит мимо элемента списка). Я согласен, должна возникать ошибка, но ведь try..except вродебы и призван бороться с такими вещами.
Где я на грабли наступаю.

← →
Palladin © (2003-06-03 14:49) [1]

из IDE наверно запускаешь, или AV возникает не тут...

← →
clickmaker © (2003-06-03 14:49) [2]

А не проще ли проверить if (ListAdmins.Selected <> nil) ? Уж на такие неприкрытые грабли зачем наступать ? :)

← →
DVM © (2003-06-03 14:50) [3]

> TCrash ©

не проще ли проверить выделен элемент или нет, чем городить try-except

IF Assigned(Selected) then ...

Всем спасибо, про проверку не догнал.

Наверное не доспал вчера :-)

Как бороться с AV Найти похожие ветки