Hi Forum,
ich hätte da mal eine Frage...
Ich gehe mit Hilfe von GetPropList() durch alle Komponenten meiner Form und setze String-Eigenschaften (hier geht es um das Lingus-Programm...). Das klappt auch super, und jetzt wollte ich nicht mehr nur Text/Caption/Hint unterstützen, sondern z.B. auch TMemo.Lines.Text. Sah eigentlich auch einfach zu machen aus, aber nun kommt das Problem:
Delphi-Quellcode:
var
Count: Integer;
PropList: TPropList;
begin
Count := GetPropList(PTypeInfo(Memo1.Lines.ClassInfo), [tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat,
tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray, tkUString,
tkClassRef, tkPointer, tkProcedure], @PropList);
Count ist danach 0, obwohl an den Lines doch eigentlich einiges an Properties hängen müsste, oder?
Weiß jemand, warum das hier so ist, und was man machen könnte, damit es so klappt?
Wäre ja schön, wenn ich mein zur Zeit genutztes Verfahren (Alle Eigenschaften durchgehen, wenn String gefunden wird, dem einen Wert zuweisen) auch dafür benutzen könnte, und nicht für TStrings eine Extra-Behandlung einbauen müsste...
Vielen Dank im vorraus und noch einen schönen Abend
