0
使用這樣,錯誤消息的:[錯誤] Unit1.pas(51):未聲明的標識符: 'Memo1'
你能幫。
我的代碼;
type
....
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure SaveStringToRegistry_LOCAL_MACHINE(sKey, sItem, sVal : string);
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(sKey, sItem, sVal + #0);
reg.Free;
end;
procedure SetTCPIPDNSAddresses(sIPs : String);
begin
SaveStringToRegistry_LOCAL_MACHINE(
'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' +
memo1.text, 'NameServer', sIPs);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Get_AdaptersInfo(memo1.lines);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetTCPIPDNSAddresses(Edit1.text+','+ Edit2.Text);
end;
end.
我尋找一個方法.. 我怎麼做的?我知道少許英文。抱歉。我如何清除錯誤?
該問題與[您的上一個問題]完全相同(http://stackoverflow.com/questions/11043392/undeclared-identifier-string-variable)。 'SetTCPIPDNSAddresses'不是表單的一種方法,因此它不能訪問備忘錄。 – Chris