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');