帮我看一下这几行代码在什么情况下才能运行?(5分)

  • 主题发起人 主题发起人 findwo
  • 开始时间 开始时间
F

findwo

Unregistered / Unconfirmed
GUEST, unregistred user!
function aotofindfriend(people,body):integer;
var
i:integer;
begin
for i=1 to length(people) do
begin
if (people.heart=hot) and (people.likeprogram) and (people.wanthavefriend) then
begin
body.addfriend(people);
if pos('郑州',people.address)>0 then
people.msg('来这里看一下吧：http://www.delphibbs.com/delphibbs/dispq.asp?lid=3418699');
end;
end;
result:=i;
end;

aotofindfriend(大富翁s,findwo);
 
[:D]搞一下
 
[:D]適合的條件下可以運行
 
[:)]好象有道理
 
呵呵，楼主真有意思。
 
呵呵，不是郑州的，也去看一下
 
[:D]非常欢迎啊
 
people,body是个结构体链表,要在函数外边设置好值,当结构体中的
(people.heart=hot) and (people.likeprogram) and (people.wanthavefriend)
条件都成立后,在 people加入body链表,加入后在根据people中的地址字段(如果地址中有"郑州")则发出消息，快给分.
 
[8D]在不出错的情况下可以运行[8D]
 
系统调试中.................
 
(people,body)这里应该有问题，没有声明是什么类别的变量!
 
[:D]是的
高手,果然被你看出来了,
我再调调[:D]
 
function aotofindfriend(people:tpeople;body:tbody):integer;
var
i:integer;
begin
for i=1 to length(people) do
begin
if (people.heart=hot) and (people.likeprogram) and (people.wanthavefriend) then
begin
body.addfriend(people);
if pos('郑州',people.address)>0 then
people.msg('来这里看一下吧：http://www.delphibbs.com/delphibbs/dispq.asp?lid=3418699');
end;
end;
result:=i;
end;

aotofindfriend(大富翁s,findwo)

现在可以运行了,就是速度太慢[:D][:D][:D]
 
for i=1 to length(people) do这一句里length(people)不太对吧,你能不能把你的类定义给出来,还有hot是什么这段代码太模糊了.
 
people=>人们
hot =>热心
[:D]
 
您必须登录或注册才可回复。

Similar threads

I
可执行文件的自修改
回复
0
查看
711
import
I
文
大家看一下这段加密代码， 解密应该怎么写呀(100)
回复
2
查看
614
zlkxzy
Z
楚
把每一行都读出来并分别保存为 随机名.txt?可是执行后在D:/找不到这个文本文件.(30)
回复
3
查看
1K
楚辞
楚
X
为什么网上找的这个代码比较不出两张图呢?(50)
回复
1
查看
1K
菜鸟黄
菜
D
谁能帮我看看我的代码到底错在哪里啊？老提示地址错误(100)
回复
4
查看
594
dfwzwhh
D
后退
顶部