МС
А как юнит назвал? Unit2?))
Size: a a a
2021 January 09
VA
не работает
версия делфи? кидай проект.
что-то не так делаешь
что-то не так делаешь
z
10.3
z
проект уже закрыл
МС
Ну значит не работает
z
program Project1;
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes,
Unit1;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('Unit1.tb');
Writeln(rt.name);
readln;
end.
unit Unit1;
interface
type
tb=record
fa:integer;
end;
implementation
end.
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes,
Unit1;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('Unit1.tb');
Writeln(rt.name);
readln;
end.
unit Unit1;
interface
type
tb=record
fa:integer;
end;
implementation
end.
VA
program Project1;
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes,
Unit1;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('Unit1.tb');
Writeln(rt.name);
readln;
end.
unit Unit1;
interface
type
tb=record
fa:integer;
end;
implementation
end.
{$APPTYPE CONSOLE}
uses
sysutils,
typinfo,
rtti,
classes,
Unit1;
type
tb=record
fa:integer;
end;
var
c : TRttiContext;
rt: TRttiType;
begin
c := TRttiContext.Create;
rt:=c.FindType('Unit1.tb');
Writeln(rt.name);
readln;
end.
unit Unit1;
interface
type
tb=record
fa:integer;
end;
implementation
end.
у тебя в двух местах объявлен тип
МС
у тебя в двух местах объявлен тип
Разве это критично? Он же через qualified name ищет
z
это я наколенке написал, проверял - неработает всяко
МС
А беда в том, что у тебя нет указанного рекорда в готовом ехе
z
линкер выкинул?
МС
Ты его вроде как и описал, но он не задействован
z
что добавить чтоб невыкидывал?
МС
Поэтому и нет такого типа
МС
Ну для классов в инитиализейшен пишут вроде TSomeType.Classname.
Для рекорда ... Где нибудь в main поработай с этим типом
Для рекорда ... Где нибудь в main поработай с этим типом
z
unit Unit1;
interface
type
tb=record
fa:integer;
end;
var
b:tb;
implementation
initialization
b.fa:=-1;
writeln(b.fa)
end.
z
так не выкидывает, но всеравно неработает
МС
Заинтриговал даже. Буду за ноутом - попробую посмотреть
AI
unit Unit1;
interface
type
tb=record
fa:integer;
end;
var
b:tb;
implementation
initialization
b.fa:=-1;
writeln(b.fa)
end.
Писать writeln в секции инициализации, это надо уметь конечно же.