一个record出错？大哥大姐帮忙？谢谢(50分)

F

ff_ff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #1

program test;
uses
windows,dialogs,messages;

{$I mydate.inc}
var
hehemyrecord;
str:String;
begin
pmyrecord.a:='hello';
showmessage(pmyrecord.a);
end.
mydata.inc文件:
type
pmyrecord = ^myrecord;
myrecord = record
a:String;
b:String;
end;
Object or Class type required

 

M

_Murray

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #2

procedure TForm1.Button1Click(Sender: TObject);

type
pmyrecord = ^myrecord;
myrecord = record
a:String;
b:String;
end;
var
hehemyrecord;
str:String;
begin
new(hehe);
hehe.a:='hello';
showmessage(hehe.a);
end;

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #3

hehe:=new(pmyrecord);
hehe.a:='hello';
showmessage(hehe.a);

你用这个试试；

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #4

别忘了dispose

 

F

ff_ff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #5

谢谢大家。