Wikia

Delphi Programming

AddExitProc Routine

2,918pages on
this wiki
Talk0
This page is intended as a supplement to the official documentation on Delphi programming. CodeGear is in the process of putting the Delphi documentation on the Web. Once they have done so, this page will link to the relevant page in the official documentation.
Stub
This article is a stub.
Please help enhance the Delphi Programming Wiki by expanding it.
Info
see the VCL Documentation Guidelines for an overview on doc pages

UnitEdit

DescriptionEdit

Definition (Delphi 2009, XE):

procedure AddExitProc(Proc: TProcedure);

Technical CommentsEdit

(Known issues / Documentation clarifications / Things to be aware of)

ExamplesEdit

(Please provide links to articles/source code that show how to use this item.)

procedure dispose_ptrs; far;
var
  i: integer;
  ptr_undo: PUndo;
begin
  for i:= 0 to lst_undo.Count -1 do begin
    ptr_undo:= lst_undo[1];
    Dispose(ptr_undo);
    lst_undo[i]:= nil;
  end;
  lst_undo.Clear;
  lst_undo.Free;
end;

begin
  AddExitProc(dispose_ptrs);
end.

--Nmanca 10:20, 25 July 2008 (UTC)

See AlsoEdit

(Please provide links to items specifically related to this item.)

User Comments/TipsEdit

(Please leave your name with your comment.)

Around Wikia's network

Random Wiki