Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv17133
Modified Files:
PythianUtils.pas
Log Message:
@@kk 18/10/00
Index: PythianUtils.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/PythianUtils.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** PythianUtils.pas 2000/09/10 16:47:17 1.1
--- PythianUtils.pas 2000/10/18 17:58:11 1.2
***************
*** 11,14 ****
--- 11,16 ----
function BoolToStr(b:boolean):String;
+ procedure PyFreeAndNil(P: Pointer);
+
implementation
***************
*** 18,21 ****
--- 20,29 ----
Result := 'TRUE'
else Result := 'FALSE';
+ end;
+
+ procedure PyFreeAndNil(P: Pointer);
+ begin
+ Dispose(P);
+ P := nil;
end;
|
