FindComponent auch für property ???

[Martin K]

Hi Leute,

kann man irgendwie auf eine property einer Komponente zugreifen, von der man nur jeweils die Strings hat ?

Also so etwas z.B.:

Delphi-Quellcode:

//Zuordnung:
FindComponent('Form1.Caption') := 'Test';

//auslesen:
var s: string;

s := String(FindComponent('Form1.Caption'));

[jim_raynor]

Nein. Du kannst aber GetPropInfo aus der Unit TypInfo Informationen zu einer Published Eigenschaft ermitteln und mit SetStrProp dann ändern.

Such mal im Forum nach RTTI oder den oben genannten Funktionsnamen. Das Objekt selbst, musst du vorher mit FindComponent oder wie auch immer selbst finden.

[Martin K]

Hmm...

Dieser Code wird zwar kompiliert, löst aber eine Exception aus:

Delphi-Quellcode:

GetPropInfo(FindComponent('Form1'),'Caption');

[Die Muhkuh]

Zitat:

Zitat von Martin K

Hmm...

IMHO:

Delphi-Quellcode:

GetPropInfo((FindComponent('Form1') as TForm),'Caption');

[Martin K]

Zitat:

Zitat von Spider

IMHO:

Delphi-Quellcode:

GetPropInfo((FindComponent('Form1') as TForm),'Caption');

Löst auch eine Exception aus... :cry:

[JasonDX]

Zitat:

Zitat von Spider

GetPropInfo((FindComponent('Form1') as TForm),'Caption')[/delphi]

Anders geschrieben:

Delphi-Quellcode:

GetPropInfo((Form1.FindComponent('Form1'){...}

Form1 hat nur unwahrscheinlich eine Komponente, die auch wieder Form1 heisst ;)
da geht das doch besser:

Delphi-Quellcode:

GetPropinfo(Form1, 'Caption');

btw, es waere im Sinne der OOP, auf Form1 zu verzichten, und auf self zurueckzugreifen. Wenn eine aussenstehende Klasse die Eigenschaften setzen soll, so sollte die Instanz per Parameter mitgegeben werden. Aber Form1.Irgendwas zu verwenden.... *uarghs*

greetz
Mike

[Martin K]

Zitat:

Zitat von JasonDX

Delphi-Quellcode:

GetPropInfo((Form1.FindComponent('Form1'){...}

Form1 hat nur unwahrscheinlich eine Komponente, die auch wieder Form1 heisst ;)
da geht das doch besser:

Delphi-Quellcode:

GetPropinfo(Form1, 'Caption');

btw, es waere im Sinne der OOP, auf Form1 zu verzichten, und auf self zurueckzugreifen. Wenn eine aussenstehende Klasse die Eigenschaften setzen soll, so sollte die Instanz per Parameter mitgegeben werden. Aber Form1.Irgendwas zu verwenden.... *uarghs*

greetz
Mike

Ja, das mit Form1 war ja auch nur ein Beispiel.

Es sollte z.B. auch so gehen können:

Delphi-Quellcode:

GetPropInfo(FindComponent('Label1'),'Caption');

[SirThornberry]

kannst du uns auch sagen welche Exception kommt? mir ist es eigentlich neu das Form1.FindComponent das Form1 findet, denn ein Form hat sich nicht selbst in seiner eigenen liste. Man sollte schon sicherstellen ob FindComponent auch was gefunden hat. Und wie bereits erwähnt wäre es auch sinnvoll zu wissen welche Fehlermeldung du bekommst.

[Martin K]

Naja, bei Label1 kommt keine Exception....

Gut, dass mit Form1 habe ich verstanden - daran lag's wohl :wink:

Aber wie bekomme ich jetzt den String (TCaption) von Label1.Caption zurück?

So:

Delphi-Quellcode:

GetPropInfo(FindComponent('Label1'),'Caption').Name

bekomme ich dann logischerweise 'Caption' zurückgeliefert...

[JasonDX]

Zitat:

Zitat von Martin K

Aber wie bekomme ich jetzt den String (TCaption) von Label1.Caption zurück?

hmmmm....
Ein bisschen weiter oben steht geschrieben:

Zitat:

Zitat von jim_raynor

Du kannst aber GetPropInfo aus der Unit TypInfo Informationen zu einer Published Eigenschaft ermitteln und mit SetStrProp dann ändern.

D.h. mit SetStrProp kannst du string-Properties setzen. Jetzt geben wir dem ganzen noch etwas Phantasie dazu und gucken, ob es etwa nicht GetStrProp gibt... tatsaechlich, sie existiert. Und rate mal, was die macht ;)

greetz
Mike

[Martin K]

Cool, das funktioniert!!!! :thumb:

Vielen Dank an alle.

[Martin K]

Kaum ist ein Problem gelöst, kommt schon das nächste:

Funktioniert das auch mit einer "Untereigenschaft" ?

also z.B.:
Label1.Font.Name ????

Dieses Beispiel war ja für Label1.Caption

[JasonDX]

Zitat:

Zitat von Martin K

Kaum ist ein Problem gelöst, kommt schon das nächste:

Funktioniert das auch mit einer "Untereigenschaft" ?

also z.B.:
Label1.Font.Name ????

Dieses Beispiel war ja für Label1.Caption

Ja, die Klasse war TLabel, Label1 die Instanz davon, und Caption die Eigenschaft.
"Untereigenschaften" sind auch nur wieder Eigenschaften von Klassen. TLabel.Font ist vom Typ TFont, den Instanz-Zeiger kriegst du ueber Label1.Font, und die Eigenschaft heisst "Name". Funktioniert also gleich wie bei TLabel.Caption ;)

greetz
Mike

[jim_raynor]

Du müsstest mit GetObjectProp(Label1,'Font') das Schrift-Objekt ermitteln und dann wieder mit SetStrProp(Font,'Name','Test') setzen.

Delphi-Quellcode:

var
  tmpObject: TObject; // TObject da tatsächliche Klasse zur Laufzeit unbekannt ist und auch egal ist
begin
  tmpObject:=GetObjectProp(Label1,'Font');
  SetStrProp(tmpObject,'Name','Test);
end;

[Martin K]

Ja, das geht!
Danke :thumb:

Hab's noch etwas vereinfacht:
Das ganze geht auch in einer Zeile und ohne zusätzliche Variable:

Delphi-Quellcode:

SetStrProp(GetObjectProp(FindComponent('Label1'), 'Font'), 'Name', 'Arial');

Das ganze ändert also die Schriftart von Label1 in Arial,
wobei alles nur in Strings übergeben wird!

[Martin K]

Hi, ich bin's nochmal:

Ist es auch irgendwie möglich, den Defaultwert einer property abzufragen?

[fkerber]

Hi!

Was meinst du mit "Default-Wert"?
Den Wert den sie beim Start des Programms haben/hatten?


Ciao Frederic

[Martin K]

Zitat:

Zitat von fkerber

Hi!

Was meinst du mit "Default-Wert"?
Den Wert den sie beim Start des Programms haben/hatten?


Ciao Frederic

Ja, genau den!
Bzw. den Wert, den eine Property annimmt, wenn nichts an der entspr. Stelle in der dfm-Datei steht.

z.B. ist der Defaultwert der Property 'Transparent' eines TLabel FALSE.

[Martin K]

Wie kann man nun allg. den Default-Wert einer Property erhalten?
Ist das überhaupt möglich???

[mkinzler]

Da wird er den wert aus der klasse Lesen oder der Superklasse, wenn die Klasse auch kein Wert vorsieht.

[jim_raynor]

Bei GetPropInfo bekommst du einen Pointer auf einen Record TPropInfo zurück, der ein Feld Default hat. Da der allerdings nur ein LongInt ist, weiß ich net, was bei einer String-Property drin steht. Vielleicht garnichts, vielleicht aber auch der richtige String, bei einem entsprechende Cast:

Delphi-Quellcode:

var
  PropInfo: PPropInfo;
begin
  PropInfo:=GetPropInfo(Form1,'Caption');
  showmessaege(String(Pointer(PropInfo.Default));
end;

Keine Ahnung ob es klappt.

[Martin K]

Danke!
Bei Integer- und Boolean-Typen klappt's wunderbar (ordinale Typen).
Wenn man eben String() durch IntToStr() ersetzt.

Delphi-Quellcode:

IntToStr(GetPropInfo(Self,'Caption').Default

Bei einem String:
Mit IntToStr() wird -2147483648 zurückgeliefert,
String() löst eine AV aus.

Weiß jemand, wie man sonst noch -2147483648 in einen ordentlichen String umwandeln kann?

[jim_raynor]

Ha, wenn du mal in der Hilfe zu default schaust steht da:

Zitat:

default und nodefault werden nur für Ordinal- und Mengentypen unterstützt

Ergo. Gibts für Strings keinen Default wert.

[Martin K]

Okay, der normale Default-Wert eines Strings ist ja eigentlich auch immer '' (leerer String).

Wenn man mal in der dfm-Datei eines Projekts ein wenig rumspielt und hier ein paar Zeilen, wo irgendwelche Strings stehen einfach löscht (z.B.: Caption = 'Form1') - wenn man dann das Projekt in Delphi lädt wird man feststellen, dass an dieser Stelle überall leere Strings stehen.
Ergo: Der Default-String ist immer ''

Aber was ist dann mit -2147483648 ???
Ist das irgendwie der Integer-Wert eines leeren Strings?

[jfheins]

guck mal in die hilfe zu [oh]nodefault[/oh] ;)

Zitat:

Mithilfe des Bezeichners nodefault kann ein geerbter default-Wert ohne Angabe eines neues Wertes außer Kraft gesetzt werden. Die Direktiven default und nodefault werden nur für Ordinal- und Mengentypen unterstützt, bei denen die Ober- und Untergrenze des Basistyps einen Ordinalwert zwischen 0 und 31 hat. Enthält eine Eigenschaftsdeklaration weder default noch nodefault, gilt sie als mit nodefault definiert. Für Real-, Zeiger- und String-Typen gilt der implizite default-Wert 0 bzw. nil und '' (leerer String).

Hinweis: Sie können den ordinalen Wert 2147483648 nicht als Standardwert verwenden. Dieser Wert wird intern für die Darstellung von nodefault verwendet.

[Martin K]

Aha.

Ich sollte wohl doch mal ab und zu wieder in die Hilfe schauen :wink:

Danke nochmal!