我定義了鏈表，並寫了下面的代碼：
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; 請問英雄，我如何才能建立一個鏈。謝。
解决方案 »
- 公司要做一套单位车辆管理系统，请问有什么办法将车辆的油耗情况也管理起来？
- 如何写连接到远程SQL SERVER 2000 的连接字符串?
- rave报表问题，高分请教！
- 怎样把电子表格文件中的数据导入adoquery1?
- 很不明白，delphi +ado + access 报的 Invalid variant type conversion 错误，
- delphi中莫名的问题（capability not supported）？
- 问各位关于dbgrid得备份和还原得问题。。。
- 打印的问题，QuickRep1中，我想打印一个10厘米宽，10厘米高的纸，但是他打印好了还会走纸，怎么办？？
- 如何访问ini文件？
- 象金山毒霸一样的从网络上更新程序的功能
- 我以前开发了一个系统，是用ACCESS做数据库的，现在我想用SQL，因为客户想要个网络版的，我想问一下，ACCESS和SQL在写代码的时候有什么不
- 请Piao40993470(ミ飘ミ)大侠给我发一份C/S程序吧，我的email:[email protected]
Teveryday=record
day:1..31;
value:integer;
next:Pt//去掉^
end;
PTEveryDay = ^TEveryDay;
TEveryDay = Record
Day: 1..31;
Value: Integer;
Next: PTEveryDay
end;