Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   RTTI: FieldType eines Klassenfeldes ist nil !? (https://www.delphipraxis.net/210044-rtti-fieldtype-eines-klassenfeldes-ist-nil.html)

stj 21. Feb 2022 12:51

Delphi-Version: 2010

RTTI: FieldType eines Klassenfeldes ist nil !?
 
]Hallo zusammen,

ich versuche hier gerade mit RTTI zu arbeiten, habe aber ein merkwürdiges Problem ...

Folgende Deklarationen:

Code:
type R = record f: string end;
type PR = ^R;

type C1 = class
       X: PR;
     end;

type C2 = class
       X: ^R;
     end;

procedure Test(C: TClass);
var
  Ctx: TRttiContext;
  T: TRttiType;
  F: TRttiField;
begin
  Ctx := TRttiContext.Create;
  try
    T := Ctx.GetType(C);
    for F in T.GetFields do
    begin
      if Assigned(F.FieldType) then
        Writeln(F.FieldType.ClassName)
      else
        Writeln('Schock!').
    end;
  finally
    Ctx.Free;
  end;
end;
Rein theoretisch sind m.E. beide Klassen identisch (?).

Frage ich nun mit RTTI die Felder der Klasse ab, bekomme ich bei C1 die erwarteten Werte, d.h.
das Feld X hat den FieldType "TRttiPointerType", so soll es sein.

Mache ich das Ganze mit C2 existiert zwar das Feld X, aber der gelieferte FieldType ist nil und
nicht wie erwartet "TRttiPointerType" :shock:

Denke ich hier falsch, oder kann mir das irgendjemand erklären?

Gruß Stephan

peterbelow 21. Feb 2022 14:24

AW: RTTI: FieldType eines Klassenfeldes ist nil !?
 
RTTI kann nur mit Typen umgehen, die einen Namen haben, also per type declaration definiert worden sind. "On the fly" erzeugte Typen wie dein ^R gehören nicht dazu.

stj 21. Feb 2022 14:37

AW: RTTI: FieldType eines Klassenfeldes ist nil !?
 
Zitat:

Zitat von peterbelow (Beitrag 1502552)
RTTI kann nur mit Typen umgehen, die einen Namen haben, also per type declaration definiert worden sind. "On the fly" erzeugte Typen wie dein ^R gehören nicht dazu.

Hm.

Das scheint aber nur begrenz so zu sein ...
Für die Klasse

Code:
  C4 = class
    X: record F: string end;
  end;
geht das sehr wohl, allerdings ist der Typname von X dann doch sehr kryptisch - :C4.:1

Ziemlich schräg.

peterbelow 21. Feb 2022 16:31

AW: RTTI: FieldType eines Klassenfeldes ist nil !?
 
Zitat:

Zitat von stj (Beitrag 1502553)
Zitat:

Zitat von peterbelow (Beitrag 1502552)
RTTI kann nur mit Typen umgehen, die einen Namen haben, also per type declaration definiert worden sind. "On the fly" erzeugte Typen wie dein ^R gehören nicht dazu.

Hm.

Das scheint aber nur begrenz so zu sein ...
Für die Klasse

Code:
  C4 = class
    X: record F: string end;
  end;
geht das sehr wohl, allerdings ist der Typname von X dann doch sehr kryptisch - :C4.:1

Ziemlich schräg.

Das liegt vermutlich daran, dass der record ein Feld enthält, für dessen Typ (string) der Compiler die Speicherverwaltung übernimmt.

stj 21. Feb 2022 16:41

AW: RTTI: FieldType eines Klassenfeldes ist nil !?
 
Zitat:

Zitat von peterbelow (Beitrag 1502557)
Zitat:

Zitat von stj (Beitrag 1502553)
Zitat:

Zitat von peterbelow (Beitrag 1502552)
RTTI kann nur mit Typen umgehen, die einen Namen haben, also per type declaration definiert worden sind. "On the fly" erzeugte Typen wie dein ^R gehören nicht dazu.

Hm.

Das scheint aber nur begrenz so zu sein ...
Für die Klasse

Code:
  C4 = class
    X: record F: string end;
  end;
geht das sehr wohl, allerdings ist der Typname von X dann doch sehr kryptisch - :C4.:1

Ziemlich schräg.

Das liegt vermutlich daran, dass der record ein Feld enthält, für dessen Typ (string) der Compiler die Speicherverwaltung übernimmt.

Auch das scheint nicht der Fall zu sein.
Selbst wenn ich

Code:
  C4 = class
    X: record end;
  end;
verwende, wird der Typname :C4.:1 ausgegeben.
Ist für mich absolut unlogisch das Ganze und sorgt bei der Verwendung für einige Klimmzüge :-(

Soweit ich das bisher eruieren konnte gibts das Problem nur für die Variante mit einer (impliziten) Pointer Deklaration.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz