關於RemObjects Pascal Script的用法

[hotswin]

想要使用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
==============================
請問要怎麼使用呢?

[yshuui]

这里边是否也要有引用单元啊？引用了吗？

[haitao]

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

[hotswin]

請問一下要怎麼引用呀? 加了以下的最後一行也沒用耶
=======================================
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;

[haitao]

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

[hotswin]

頂 特殊螺絲