想要使用ADO的功能,寫了以下的script
program Test;
var
  s:string;
  i:integer;
begin
  // ... add your code here
 i:=  ADOQuery1.recordcount;
  
end.
===============================
但執行時出現:
Compiling
Compiler: [Error] (7:7): Unknown identifier 'ADOQuery1'
Compiling failed
==============================
請問要怎麼使用呢?

解决方案 »

  1.   

    'ADOQuery1'显然是一个对象,都没有定义、创建,肯定不行了
      

  2.   

    請問一下要怎麼引用呀? 加了以下的最後一行也沒用耶
    =======================================
    procedure TForm1.PSScriptCompile(Sender: TPSScript);
    begin
      Sender.AddFunction(@MyWriteln, 'procedure Writeln(s: string);');
      Sender.AddFunction(@MyReadln, 'function Readln(question: string): string;');
      Sender.AddFunction(@ImportTest, 'function ImportTest(S1: string; s2: Longint; s3: Byte; s4: word; var s5: string): string;');
      Sender.AddRegisteredVariable('Application', 'TApplication');
      Sender.AddRegisteredVariable('Self', 'TForm');
      Sender.AddRegisteredVariable('Memo1', 'TMemo');
      Sender.AddRegisteredVariable('Memo2', 'TMemo');
      Sender.AddRegisteredVariable('ADOQuery1', 'TADOQuery');
    end;
      

  3.   

    哦,已经添加注册了,
    Sender.AddRegisteredVariable('ADOQuery1', 'TADOQuery'); 
    不知道ro的对象是不是需要创建(create)的?