я умею, не переживай

))

Вот то что не работает, а вроде должно
program Project1;

{$APPTYPE CONSOLE}

uses
 sysutils,
 typinfo,
 rtti,
 classes,
 Unit1;

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;

var
b:tb;

implementation

initialization
 b.fa:=-1;
 writeln(b.fa)
end.

rt возвращается nil

Так надо добавить {$M+}

нет, непомогает

я хз конечно. Но багом попахивает.

// rt2 := c.GetType(TypeInfo(tb));
   rt := c.FindType('Unit7.tb');
   Writeln(rt.QualifiedName);

если расскоментировать - то норм ищет

из костылей - напиши свой поиск, который будет перебирать TRttiContext.GetTypes

хитро)) т.е. без прямого упоминания TypeInfo(tb) она линкером выкидывается чтоли?

{$STRONGLINKTYPES ON} помогает

спасибо

закоменти TypeInfo

блок с TypeInfo

Hello

procedure EnterValues();
 var
 i: integer;
 begin
 for i := 1 to n do begin
 readln(students[i].name);
 readln(students[i].gradeForExam1);
 readln(students[i].gradeForExam2);
 readln(students[i].gradeForExam3);
 students[i].averageGrade := (students[i].gradeForExam1 + students[i].gradeForExam2 + students[i].gradeForExam3) / 3;
 averageGradeAmongAllStudents := students[i].averageGrade / n;
 end;
 end;

И?

Короче как это работает

Сформулируй вопрос. Пока наблюдаются лишь утверждения