Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Unterschied Pointer/Referenzvariablen
1. Mär 2006, 22:25
Versuch deinem Objekt nil zuzuweissen in deine Prozedur.
Delphi-Quellcode:
procedure myProc( obj:TObject );
begin
obj := nil;
end;
//
var
o:TObject;
begin
o := TObject.Create();
myProc( o );
if o<>nil then
Application.MessageBox('sniper hatte recht','sniper');
o.free;
end;
Katura Haris Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|