Records and class name

[Dibo]

Hi,

Are records store information of own class name? I mean, in standard object I have such functions as ClassName, ClassType, InheritsFrom. Can I somehow read this information from the records?

Regards

[theo]

How can a record have a classname?
A record is not a class.

[Dibo]

Yes, but I was wondering if there is any way to check type of record

[Martin_fr]

No there isn't.

And there is (should be) no need.

You know the type.
  var a: TFooRecord;
"a" will always contain a TFooRecord, never anything else

var a: TFooClass
"a" could contain TInheritedFromFooClass., so you do not know.

There is of course a case: if you use untyped pointers, then you may not know what your pointer points too.

[Leledumbo]

There is actually, through RTTI. But that's not necessary in most cases. For classes, ClassType, ClassName, InheritsFrom etc. exist due to dynamic behavior of a class. The case is not the same with record since record doesn't have inheritance.

[Martin_fr]

There is actually, through RTTI.

You are referring to classes, records, or both?

That there is for classes was never disputed, but neither in question.

If you refer to Records, then that's news to me...

[Leledumbo]

If you refer to Records, then that's news to me...

Yes, I'm referring to records. AFAIK RTTI works for ANY type.

[xenblaise]

Something like this?

//Class;
type
  TTemplate = class
    public
      tpt:        Pchar;
      size:       Integer;
      id:         Integer;
      constructor Create;
      destructor Destroy; override;
  end;

  TDBClass = class
  private
    dsTemplates: TSQLQuery;
    connection: TODBCConnection;
    SQLTransact: TSQLTransaction;
    tptBlob: TTemplate;
  public
    function openDB(): boolean;
    procedure closeDB();
  end;



//Record;
type
  TCars = record
  name: string[30];
  price: Integer;
end;
ShowRoom = array of TCars; 

var
CarRoom: ShowRoom;