Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Eine art FindComponent für normale Variablen? (https://www.delphipraxis.net/9152-eine-art-findcomponent-fuer-normale-variablen.html)

ahachmann 19. Sep 2003 10:27


Eine art FindComponent für normale Variablen?
 
Hallo,
Gibt es die Möglichkeit, auf variablen so ähnlich zuzugreifen wie auf objekte mit FindComponent? Ich will auf Integerwerte zugreifen,deren Namen per String übergeben werden. BZW, eine Funktion bekommt einen Sender, und die Variable heißt dann so ähnlich wie der Sender.
objSenderObject intSenderObject. Somit will ich dann über den Geparsten Objektnamen auf den INtegerwert zugreifen.
Geht das?
Danke,
ALexander

Robert Marquardt 19. Sep 2003 13:57

Re: Eine art FindComponent für normale Variablen?
 
Das kannst du vergessen. Die Namen gibt es im EXE nicht mehr. Die CPU arbeitet nur mit Adressen, daher hat der Compiler auch nur Adressen generiert.

Meister_Kika 19. Sep 2003 14:21

Re: Eine art FindComponent für normale Variablen?
 
Es gibt einen Workaround wenn du schon mit objekten arbeitest und
die variabeln im objekt hängen :

Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    fme : int64;
  public
    { Public-Deklarationen }
  published
    property me : int64 read fme write fme;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(typinfo.GetInt64Prop(Form1,'me')));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fme := 1;
end;

end.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz