5,388
社区成员
发帖
与我相关
我的任务
分享鏈表
我定義了鏈表，並寫了下面的代碼：
type Pt=^Teveryday;
Teveryday=record
day:1..31;
value:integer;
next:^Pt
end;
........
var p1,p2:^Teveryday;
.........
new(p1);
p1^.day:=1;
p1^.value:=10;
p1^.next:=nil;
new(p2);
p2^.next:=p1;{這句編譯不通過,提示為Incompatible types:'Teveryday'and'Pt'}
p1:=p2;
請問英雄，我如何才能建立一個鏈。謝。
type Pt=^Teveryday;
Teveryday=record
day:1..31;
value:integer;
next:^Pt
end;
........
var p1,p2:^Teveryday;
.........
new(p1);
p1^.day:=1;
p1^.value:=10;
p1^.next:=nil;
new(p2);
p2^.next:=p1;{這句編譯不通過,提示為Incompatible types:'Teveryday'and'Pt'}
p1:=p2;
請問英雄，我如何才能建立一個鏈。謝。
...全文
请发表友善的回复…
发表回复
kuki84 2003-08-21
- 打赏
- 举报
对，那里不能再定义为指针了
tonycjl 2003-08-21
- 打赏
- 举报
同意 eastliangliang(青苹果)(目标：钻石王老五)
shuixin13 2003-08-21
- 打赏
- 举报
type
PTEveryDay = ^TEveryDay;
TEveryDay = Record
Day: 1..31;
Value: Integer;
Next: PTEveryDay
end;
PTEveryDay = ^TEveryDay;
TEveryDay = Record
Day: 1..31;
Value: Integer;
Next: PTEveryDay
end;
eastliangliang 2003-08-21
- 打赏
- 举报
type Pt=^Teveryday;
Teveryday=record
day:1..31;
value:integer;
next:Pt//去掉^
end;
Teveryday=record
day:1..31;
value:integer;
next:Pt//去掉^
end;
