注册表读取 放分100，

Question

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
s:tstrings;
i:integer;
begin
  reg:=TRegistry.Create;
  s:=tstrings.Create;
  reg.RootKey:=HKEY_CLASSES_ROOT;
 if reg.OpenKey('.aif',false) then begin
    s:=tstrings.Create;
    reg.GetKeyNames(s);  //到这里就出错！
     For i := 0 To s.Count - 1 Do  ListBox1.Items.Add(s[I]);
     reg.CloseKey;
     s.Free;
 end;
 reg.Free;
end;
想读取所有子键名称，不知道怎么解决。
谢谢！

Answer 1

谢谢 aiirii(ari-淘金坑)，解决了
但是，我没有搞懂，为何用tstrings 就不行了？？

Answer 2

按着Ctrl然后点击tstrings看看，它有很多方法是abstract抽象的，所以是个抽象类。什么是抽象类不用说了吧，^_^

Answer 3

看看这个解释，嘿嘿
http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/jscript7/html/jsrefabstractattribute.asp