mehrsprachigkeit

[alcaeus]

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