HG
Size: a a a
HG
ВБ
AS
SB
could not bind socket
SB
z
МС
z
z
program Project1;
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('tb');
Writeln(rt.name);
readln;
end.
z
МС
МС
VA
program Project1;
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('tb');
Writeln(rt.name);
readln;
end.
rt:=c.GetType(TypeInfo(tb));
МС
rt:=c.GetType(TypeInfo(tb));
z
VA
VA
rt:=c.FindType('Unit1.tb');
z
МС
z
rt:=c.FindType('Unit1.tb');