Mahlzeit!
Wieso meckert mein Compiler "Undefinierter Bezeichner: 'Checked'" bei der folgender Funktion...
TButtonControl hat doch die Eigenschaft "Checked"
Wo mache ich da den Denkfehler??
bei "(TheComp as TCustomEdit).Text " funktionierts ja auch...
Delphi-Quellcode:
function WriteIni(IniFile:String;Section:String;Key:String;TheComp:TComponent):Boolean;
Var FIni:TInifile;
begin
result:=false;
Try
FIni := TIniFile.Create(IniFile+'.Ini');
If TheComp is TCustomEdit then
begin
FIni.WriteString(Section,Key,(TheComp as TCustomEdit).Text);
result:=True;
end;
If TheComp is TButtonControl then
begin
FIni.WriteBool(Section,Key,(TheComp as TButtonControl).Checked); <--- Hier !!!
result:=True;
end;
FIni.Free;
except
result:=false;
end;
end;
bin für alle Denk-Anstösse dankbar!
Stefan