Class constants

[PX]

Hello, is it possible to have constants or read-only variables in a class?

like:

type
   TClass = class
        const hello = 'hi';
    end;

Ive been pulling my hair trying to do this... Is there a way?

Thanks!

[antonio]

Couldn't you use a field?

[PX]

a field?

[antonio]

Code: [Select]


type
   TClass = class
    FField:string;
   public
    property MyString:string read FField;  // a readonly property
   end;
    (...)
constructor tclass.create;
begin
  // inherited Create here;
  FField := 'hi';
end;    
     (...)


[PX]

ah I see thanks =)

[pinaxe]

Yep it is easy.
//-------------------------------------------
tMyClass = class(TObject)
    MyInt  :integer;
  private
    const MYCONSTANT1=3;
    procedure MyProc();
  public
    const MYCONSTANT2=4;
end;
//-------------------------------------------

[User137]

Or a function guarantees to be readonly

Code: Pascal  [Select][+][-]

1. type
2.   TClass = class
3.   public
4.     function MyString: string;
5.   end;
6. ...
7. function TClass.MyString;
8. begin
9.   Result := 'hi';
10. end;

If you add "inline" to it, it might remove all the overhead of a function call too.