代码大全

.

r

CheckPointer

heckPointer Pointer POINTER TYPE

perform check 1 --maybe check that it's not nil}

2 --maybe check that its dogtag is legitimate}

-maybe c

{ ck n ...}

5.6.6

Procedure DoSomething
(
Pointer:PONITER_TYPE;
..
);
begin
{ check parameters passed in }
CheckPointer Pointe
...
end.

Procdure C
begin
{
{perform check
{perform check 3 - heck that what is point to isn't corrupted}
...
perform che
end;

Proccure CheckPointer (Pointer: POlNTER_TYPE );
begin
{no code;just return to caller}
end;