Delphi自定义函数出错
在同一个窗体中：
function TfrmFILESHARE.GetChecker(const DirCode:Integer;const Stage:Integer):TStrings;
var
iDirCode:Integer;
begin
//获取目录的审批者
iDirCode:=DirCode;
while iDirCode>0 do
begin
dm.qry.SQL.Text:='SELECT Checker from HDIR2 WHERE DirCode=' + IntToStr(iDirCode) + ' AND Stage=' + IntToStr(Stage);
dm.qry.Open;
if dm.qry.RecordCount>0 then
begin
while not dm.qry.Eof do
begin
Result.Add(dm.qry.FieldByName('Checker').AsString);
dm.qry.Next;
end;
dm.qry.Close;
Break;
end
else
begin
dm.qry.Close;
dm.qry.SQL.Text:='SELECT Father from HDIR WHERE DirCode=' + IntToStr(iDirCode);
dm.qry.Open;
if dm.qry.RecordCount>0 then
begin
iDirCode:=dm.qry.FieldByName('Father').AsInteger;
dm.qry.Close;
end
else
&nbs
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
有什么构想讨论一下。
这类东西主要是人气和界面花哨,技术上没什么难点.
这我知道，那技术上的呢？有没有构想一下该怎么设计？主要是delphi自身能不能够完成，若同时大量客户登陆，反应速度如何等等。
引用
......
