5,391
社区成员
发帖
与我相关
我的任务
分享继续一个指针问题。
有一ocx，传入参数需要 long far 指针，并该参数的实际值为超过1800个字符长。
请问delphi里该如何定义该指针，如果使该指针指向1800个字符长的string？
我的定义及指向如下
type
arr=array[0..511] of Integer;
p=^arr;
var
myp:p;
lcode:ansistring;
begin
lcode:=edit1.text; //超过1800个字符，不定长
new(myp);
move(lcode,myp^[0],sizeof(lcode]));
ocx1.function(myp^[0]) //ocx函数传入
.....
dispose(myp);
.....
end;
请问delphi里该如何定义该指针，如果使该指针指向1800个字符长的string？
我的定义及指向如下
type
arr=array[0..511] of Integer;
p=^arr;
var
myp:p;
lcode:ansistring;
begin
lcode:=edit1.text; //超过1800个字符，不定长
new(myp);
move(lcode,myp^[0],sizeof(lcode]));
ocx1.function(myp^[0]) //ocx函数传入
.....
dispose(myp);
.....
end;
...全文
请发表友善的回复…
发表回复
neil 2003-01-02
- 打赏
- 举报
无人理睬？ 比较着急，在线等待中。。
