@Lemmy: Du setzt bei mir leider zuviel Wissen voraus
Ich bin noch nicht so weit das alles zu kapieren...
ich entschuldige mcih jetzt gleich mal vorab: Ich setze zu viel Wissen voraus um ein BUCH zu lesen?
OK ist in englisch. aber selbst die "alte"
RTTI kann das mit 2-3 Methodenaufrufen in 5 Zeilen Code.
http://delphitutorials.de/node/20
ein Tutorial, das sich damit beschäftigt - hat zwar ein etwas anderes Ziel, aber die Vorgehensweise sollte damit eigentlich klar werden:
Properties als published deklarieren und mit dem Compilerschalter M+ arbeiten oder die Klassen von TPersistend ableiten und nicht von TObject
dann "einfach" auslesen:
Delphi-Quellcode:
iCount:=GetPropList(oAdresse,PropertyList);
for idxIndex := 0 to iCount - 1 do begin
PropInfo:=PropertyList^[iIndex];
if PropInfo<>nil then begin
aValue:=GetPropValue(oAdresse,PropInfo^.Name);
aLabelText:=aLabelText+' '+aValue;
end;
dito für das schreiben.