2012-06-15 176 views
0

可能重複:
Undeclared identifier: String variable未聲明標識符:Memo1?

使用這樣,錯誤消息的:[錯誤] 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. 

我尋找一個方法.. 我怎麼做的?我知道少許英文。抱歉。我如何清除錯誤?

+7

該問題與[您的上一個問題]完全相同(http://stackoverflow.com/questions/11043392/undeclared-identifier-string-variable)。 'SetTCPIPDNSAddresses'不是表單的一種方法,因此它不能訪問備忘錄。 – Chris

回答

0

假設你的表單上有memo1。 adf form1。在settcpipdnsaddresses過程中的備忘錄參考前面。