Abstract error
constructor TSystemConfig.Create;
var
reg : TRegistry;
I : Integer;
st: Tstrings;
begin
reg := TRegistry.Create; try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm', False); st := TStrings.Create;
try
reg.GetValueNames(st);
finally
st.Free;
end; reg.CloseKey;
finally
reg.Free;
end;
end;
把st := TStrings.Create;
try
reg.GetValueNames(st);
finally
st.Free;
end;
部分注释掉就好了
请问高手什么问题
constructor TSystemConfig.Create;
var
reg : TRegistry;
I : Integer;
st: Tstrings;
begin
reg := TRegistry.Create; try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('hardware\devicemap\serialcomm', False); st := TStrings.Create;
try
reg.GetValueNames(st);
finally
st.Free;
end; reg.CloseKey;
finally
reg.Free;
end;
end;
把st := TStrings.Create;
try
reg.GetValueNames(st);
finally
st.Free;
end;
部分注释掉就好了
请问高手什么问题
解决方案 »
- 刚学Delphi 请问怎么在Delphi中添加一Image控件?
- 任命aiirii为大版主
- 关于access的问题!
- 一百个大洋急寻FastReport For Delphi7,一找到立刻放分
- 子窗體設置成最大化在顯示時有一個從小到大的閃爍現象怎樣解決?
- 怎样用拨号网络连接到WINXP的机子上啊?我怎么找不到它的拨号网络服务器在哪儿...
- 请教高手:关于显示/隐藏 DBGrid 列的问题---急!!!
- ADO是否可以和interbase数据库连接?另外ADO,BDE哪个有起来好一些?
- 〓〓〓〓 请问QQ登录时,选择号码的是什么组件 〓〓〓〓
- 如何将listbox显示一个表里的所有字段?我的别名是111,表名是book.
- 获取当前活动窗体的小问题~
- 为啥会有这个问题?。。。在线等
try
reg.GetValueNames(st);
finally
st.Free;
end;
要想用基于此类的实例,必须从TStringList类继承,楼上正解~~
能说一下为什么吗?
st:TStrings;
begin
st:=TStringList.Create;//向下转型
try
{Code}
finally
st.free;
end;
end;TStrings本身是抽象类,不能实例化