TSymbols - Exemples
| TSymbols = class (TObject) | Interface de TSymbols | Exemples de TSymbols |
L'exemple suivant utilise TSymbols pour lister une partie des informations relatives à elle-même.
var syms := TSymbols.CreateUnit('SystemSymbols');
while not syms.Eof do begin
PrintLn(syms.SymbolType.Name.DeleteLeft(2) + ' ' + syms.Name);
if syms.SymbolType = stClass then begin
PrintLn(#9'SuperClass is ' + syms.GetSuperSymbol.Name);
PrintLn(#9'Members');
var classSyms := syms.GetMembers;
while not classSyms.Eof do begin
PrintLn(#9#9 + classSyms.Visibility.Name.Deleteleft(3) + ' ' + classSyms.Description);
classSyms.Next;
end;
end;
syms.Next;
end;
while not syms.Eof do begin
PrintLn(syms.SymbolType.Name.DeleteLeft(2) + ' ' + syms.Name);
if syms.SymbolType = stClass then begin
PrintLn(#9'SuperClass is ' + syms.GetSuperSymbol.Name);
PrintLn(#9'Members');
var classSyms := syms.GetMembers;
while not classSyms.Eof do begin
PrintLn(#9#9 + classSyms.Visibility.Name.Deleteleft(3) + ' ' + classSyms.Description);
classSyms.Next;
end;
end;
syms.Next;
end;