destructor TXComboBox.Destroy;
var
i, vcount: integer;
RegFile: TIniFile;
SectName, tmp: string;
begin
if not (csDesigning in ComponentState) then
begin
if Owner is TWinControl then
begin
try
SectName := (Owner as TWinControl).Name + 'List';
RegFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); //以上都没有错,就下面这句出错!!--说是没有父窗口?
vcount := self.Items.Count; //出错
for i := 0 to vcount - 1 do
begin
tmp := Items[i];
RegFile.WriteString(sectName, IntToStr(i), tmp);
end;
RegFile.Free;
except
end;
end;
end;
inherited;
end;
var
i, vcount: integer;
RegFile: TIniFile;
SectName, tmp: string;
begin
if not (csDesigning in ComponentState) then
begin
if Owner is TWinControl then
begin
try
SectName := (Owner as TWinControl).Name + 'List';
RegFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); //以上都没有错,就下面这句出错!!--说是没有父窗口?
vcount := self.Items.Count; //出错
for i := 0 to vcount - 1 do
begin
tmp := Items[i];
RegFile.WriteString(sectName, IntToStr(i), tmp);
end;
RegFile.Free;
except
end;
end;
end;
inherited;
end;
不用selef试试
直接items.count
沉沦中..........