TForm Dateiname

[trifid]

Hallo,
ich habe ein Formular TForm1 welches in der Datei form1.pas und form1.dfm beschrieben ist.
Wie bekomme ich zur Laufzeit die Information, in welcher Datei die Klasse realisiert wurde?

Die Klasse ermittle ich über Self.ClassName;
Ich suche nun die Funktion f, die über f(Self.ClassName), 'form1.pas' ermittelt.

[Dax]

Kannst du vergessen :? SOwas gibts nicht, sorry.

[trifid]

also, von anderen OO-Sprachen bin ich da was anderes gewohnt

[dizzy]

Das mag evtl. in Java so gehen, und da würde es noch Sinn machen da man mit dem freien Compiler dann zur Laufzeit weitere Klassen nachkompilieren könnte, aber bei Delphi macht das doch nicht wirklich Sinn oder?
Was hast du denn vor?

[Stevie]

Hi trifid,

da die pas-Datei immer wie die Unit heißen muss:

Delphi-Quellcode:

uses
  TypInfo;

{...}

  ShowMessage(GetTypeData(Self.ClassInfo)^.UnitName+'.pas');

[trifid]

Zitat:

Was hast du denn vor?

es handelt sich hierbei nicht um nur einen Formular.
Ein TMyCustomForm wird vererbt. Zur Laufzeit wird aber erst entschieden welches vererbte Formular nun gerade verwendet wird.
Bei (reproduzierbaren) Fehler im Formular wird ein Statusbericht erstellt Was, Wann, Wie, etc.
Schön wäre wenn ich möglichst viele Info's zusammentragen könnte.

Sicherlich könnte ich ich in jedem vererbten Forumular eine Member für FDateiname verwenden. Wenn es aber zentral einfacher abgehändelt werden könnte, würde ich mir die Schreibarbeit sparen und ich würde auch nichts vergessen. :-D

[trifid]

Danke Stevie, perfekt :thumb: