var MyReg: TRegistry;为什么有错,

Question

var MyReg: TRegistry;为什么有错,

Answer 1

//有没有创建实例?
//拷贝下面代码到implementation下面
uses registry;
{$R *.DFM}
procedure test(var myreg: Tregistry);
begin
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  a: TRegistry;
begin
  a := TRegistry.Create;
  test(a);end;

Answer 2

看看delphi的帮助吧，里面有例子如下：
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
//注看看 uses 中是否加载了Registry单元，没有就加上！