How can I declare a constant object?

var
  MyTest: TObject;
begin
  MyTest := TObject.Create;
end.

works (for sure).

How can I declare 'const'?

Thanks

Michael

I guess you're refering to the old tp days. If so you should be able to acheive constant object like that:

type
  TCObject = object
    P1: Double;
  end;
var
  MyCObject: TCObject;
begin
  MyCObject.P1 := 0;
end.

This code should world although I haven't tested it. But there is no easy(without some nasty hacking) way to have a class instance as a constant object.

2006/5/2, Michael Müller :