AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Rtti tkBoolean und tkDate nachbilden

Ein Thema von ConstantGardener · begonnen am 13. Feb 2011 · letzter Beitrag vom 13. Feb 2011
Antwort Antwort
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.052 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

AW: Rtti tkBoolean und tkDate nachbilden

  Alt 13. Feb 2011, 20:35
In Delphi XE ist Boolean übrigens nicht tkInteger sondern tkEnumeration.

Kleines Codebeispiel (ging übrigens schon vor der neuen Rtti, genauere Typenbestimmungen von Properties zu machen mit dieser Methode):
Delphi-Quellcode:
type
  TFoo = class(TPersistent)
  private
    FActive: Boolean;
    FLastUpdate: TDateTime;
  public
    property Active: Boolean read FActive write FActive;
    property LastUpdate: TDateTime read FLastUpdate write FLastUpdate;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c: TRttiContext;
  p: TRttiProperty;
begin
  for p in c.GetType(TFoo).GetProperties do
  begin
    case p.PropertyType.TypeKind of
      tkEnumeration:
      begin
        if p.PropertyType.Handle = TypeInfo(Boolean) then
        begin
          ShowMessage('Boolean found!');
        end;
      end;
      tkFloat:
      begin
        if p.PropertyType.Handle = TypeInfo(TDate) then
          ShowMessage('TDate found')
        else if p.PropertyType.Handle = TypeInfo(TTime) then
          ShowMessage('TTime found')
        else if p.PropertyType.Handle = TypeInfo(TDateTime) then
          ShowMessage('TDateTime found');
      end;
    end;
  end;
end;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
ConstantGardener

Registriert seit: 24. Jan 2006
Ort: Halberstadt
379 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Rtti tkBoolean und tkDate nachbilden

  Alt 13. Feb 2011, 21:52
Hallo Stevie,

also das hat's gebracht!! Ich hatte es schon mit zwei weiteren Attributen umgesetzt, fand es aber hässlich. Die neue Version über TypeInfo ist bedeutend besser! Danke dafür.

BTW.: Boolean ist auch unter D2010 tkEnumeration


cu cg
Andreas Schachtner
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz