易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi 自定义类型与类型匹配

//我在type定义一个tmyarray
type
tmyarray= array[0..255] of integer;


...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;

//myfun2 要用到其它的不是tmyarray的场合,所以pt 没有用tmyarray类型;
//当然把tmyarray写成array of integer也可以,但是速度有影响。
//如果不用重载,不改tmyarray,还有其它方法吗

produce ...
a:integer;
flag:boolean;
begin
..
  flag:=myfun2(myfun1(a));//如何在这里实现匹配
end
直接把你想要的数组定义成全局变量是不是更好一点呢.

不是,我想要的是一个函数myfun1():tmyarray
在myfun2(_)中用到了myfun1的返回数组
而myfun2的参数类型却是array of integer,不是tmyarray


不用重载,不用全局变量,又不用动态数组,好象没有办法了哦.是我的话我会选择用全局变量,呵呵

var
  i:integer;
  s:tmyarray;
begin
  i:=..;
  s :=myfun1(i)  ;
  myfun2(s);
end;


引用
定义一个动态组,将myfun1的结果COPY到该数组中,交用该数组作为myfun2的参数。

也只能这样了,谢谢


相关问答:

Python中的Unicode在Delphi如何还原成Gb2312?

已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi调用dll问题,300分全部送上。

我用delphi调用一个VC++的dll
这个dLL我没有源码。大小写绝对正确

dll里面的一个CloseCommPort函数,dll说明说里面有,说明如下:

5、CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......

请教关于delphi读取字符串的问题

我现在要读取一个TXT文件 里面 存放的格式是这样带格式的

数据1----数据2----数据3----数据4

我想实现分别读取 数据1  数据2  数据3  数据4

请问delphi下有什么好的方法吗? ......

delphi 数组跟for

如何用数组跟for打印出下面的图形
*
**
***
****

如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号