这段小程序问题出在哪？(0分)

1

16cy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-25

• #1

type
flags=array of TPOINT;

function myFindFlags(dc:Hdc):flags;
var
resultcol:flags;
...
begin
...
for i:=0 to 10 then
....
if....then
begin
resultcol[m].x:=...;
resultcol[m].y:=...;
m:=m+1;
end;
end;
result:=resultcol;
end;

这段小程序，编译能通过，但是执行到
resultcol[m].x:=...;
resultcol[m].y:=...;
就会报错，是什么原因？希望得到大家的帮助。。。

 

L

liyong0775

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-25

• #2

动态数组要分配内存的啊

 

Q

qw036

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-25

• #3

是不是这样的问题？
两个表的结构相同，将一个表的部分数据导到另一个数据例如：
a表字段：no , price , num , money
101 12 2 24
102 20 1 20
103 8.6 10 86
104 5.5 2 11
105 6 3 18
106 2.5 1 2.5
sum(money)=161.5
如要将a表的数据明细导入b表，要求金额sum(money)小于100
用SQL语句或delphi示例

 

1

16cy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-25

• #4

想请问一下怎么分配内存？
我才学delphi没多久

 

T

tonmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-26

• #5

SetLength(resultcol, 10);

 

1

16cy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-26

• #6

接受答案了.