По-Моему тема уже поднималась. Но я всё забыл. У меня

TCheckRecord = class private FInt: integer; FBT: boolean; published property Int: integer read FInt write FInt; property Bt: boolean read FBT write FBT; end; procedure TForm1.Button1Click(Sender: TObject); begin var LContext := TRttiContext.Create; try var LType := LContext.GetType(TypeInfo(TCheckRecord)); var LProps := LType.GetProperties; for var Prop in LProps do begin memo1.Lines.Add(prop.Name); end; finally LContext.Free; end; end;

0

1 месяц назад

Hemul GM Автор вопроса

Fasday
TCheckRecord = class private FInt: integer...

Ты издеваешься?

0

1 месяц назад

Boris Usievich

Fasday
TCheckRecord = class private FInt: integer...

А в чем смысл делать поля приватными и тут же давать полный доступ через property?

0

1 месяц назад

Viktor Akselrod 💻

Boris Usievich
А в чем смысл делать поля приватными и тут же дава...

В последствии вместо замыкания на поля там могут быть геттеры/сеттеры без изменения публичного интерфейса. Это ж ООП

0

1 месяц назад

Fasday

Hemul GM
Ты издеваешься?

https://docwiki.embarcadero.com/RADStudio/Athens/en/Information_for_Structured_Types В Wiki написано что нельзя получить

0

1 месяц назад

Karagy · Accepted Answer

Karagy

в XE7, не работает если record содержит разреженные енумы либо енумы с дубликатами. 20230526: WARN: not worked with fields with enum types that not iteratable by "for e in [e_a, e_b, e_c] do;" As example - of "Sparsed" and "Dublicated" enums. I.e. with TMySparsedEnum = (mse_A=0, mse_B=100); or with TMyDuplicatedEnum = (mde_A=0, mde_B=0);

0

1 месяц назад

169 похожих чатов

По-Моему тема уже поднималась. Но я всё забыл. У меня

8 ответов

Похожие вопросы