Moin Snoop007,
du machst einen Typecast auf TButton, egal was kommt. Wenn nun Components[i] aber vom Typ TPanel ist, dann wird dir dein Code gewaltig huebsch abschmieren, weil TPanel nicht auf TButton gecastet werden kann... Du solltest so arbeiten:
Delphi-Quellcode:
for i := 0 to ComponentCount -1 do
begin
if Components[i] is TButton then
writeln(f,Components[i].Name+'='+ TButton(FindComponent(Components[i].Name)).Caption )
else if Components[i] is TEdit then
writeln(f,Components[i].Name+'='+ TEdit(FindComponent(Components[i].Name)).Caption )
else if ...
end;
closefile(f);
Dabei kannst du dich kreuz und quer durch die Klassenstruktur arbeiten, und mal nachsehn welche Kompos du zusammenfuegen kannst...
Greetz
alcaeus