type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
tlink=^note; //运行时出现(Expected':' but'='found)怎样解决
note=record
date:string[30];
next:tlink; private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
tre:tlink;
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
tlink=^note; //运行时出现(Expected':' but'='found)怎样解决
note=record
date:string[30];
next:tlink; private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
tre:tlink;
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;type
tlink=^note;
note=record
date:string[30];
next:tlink;
end;var
Form1: TForm1;
tre:tlink;
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;type
tlink=^note;
note=record
date:string[30];
next:tlink;
end;var
Form1: TForm1;
tre:tlink;