想要使用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
==============================
請問要怎麼使用呢?
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
==============================
請問要怎麼使用呢?
解决方案 »
- 求救:用delphi做的一个系统,采用sqlserver6.5的数据库,运行提示
- 高分求一个多表查询的语句?
- 兄弟们,帮个忙,我是‘改’还是‘不改’?
- 如果利用程序启动service application?
- 简单问题:)
- 提示Ordinal type required错误是怎么产生的!
- 请教 TcompressStream如何使用
- 用delphi打开excel时候,如何让excel的保存按钮和文件->保存功能失效?
- 这种效果是怎么实现的,在TEDIT中输入内容,然后就自动出现下拉列表在下拉列表中找到相关的数据选择。怎么实现的呢?给100分
- 请问应用程序客户端中可以自定义创建一个数据表吗?
- 调用WinIO遇到的一个问题
- 比较2个listbox的内容是否有相同的
=======================================
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;
Sender.AddRegisteredVariable('ADOQuery1', 'TADOQuery');
不知道ro的对象是不是需要创建(create)的?