Difference between revisions of "Runtime Type Information (RTTI)/ru"
From Lazarus wiki
Jump to navigationJump to searchm |
|||
Line 20: | Line 20: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
+ | |||
+ | Вы также можете сделать это, без использования RTTI: | ||
+ | <syntaxhighlight> | ||
+ | program noRTTI; | ||
+ | type | ||
+ | TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ; | ||
+ | var | ||
+ | s: string; | ||
+ | begin | ||
+ | writestr(s,tpDelphi); | ||
+ | writeln(s); | ||
+ | end. | ||
+ | </syntaxhighlight> | ||
==См. также== | ==См. также== | ||
Revision as of 08:56, 22 December 2016
│ English (en) │ français (fr) │ русский (ru) │
Информация времени выполнения (RTTI) может быть использована для получения мета-данных в приложениях Pascal.
Преобразование перечислимого типа в строку
Можно использовать RTTI для получения строки из перечисляемого типа.
type
TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;
uses TypInfo;
var
s: string;
begin
s := GetEnumName(TypeInfo(TProgrammerType), integer(tpDelphi));
// Здесь s = 'tpDelphi'
Вы также можете сделать это, без использования RTTI:
program noRTTI;
type
TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;
var
s: string;
begin
writestr(s,tpDelphi);
writeln(s);
end.