我有一个类
type
CInstructor = class
public
Instructor : string;
Code : string;
Param:Array[1..100] of string;
ParamCount: integer;
end;然后在按钮事件里面调用:
procedure TFrmMain.btnParseClick(Sender: TObject);
var
flag:Boolean;
SingleInstructor:CInstructor;
begin
SingleInstructor.Create ; //这句话会报错,内存错误,无法访问?
...
...
end;
type
CInstructor = class
public
Instructor : string;
Code : string;
Param:Array[1..100] of string;
ParamCount: integer;
end;然后在按钮事件里面调用:
procedure TFrmMain.btnParseClick(Sender: TObject);
var
flag:Boolean;
SingleInstructor:CInstructor;
begin
SingleInstructor.Create ; //这句话会报错,内存错误,无法访问?
...
...
end;
SingleInstructor:=CInstructor.Create;
以后就可以使用了,比如
SingleInstructorI.nstructor='11111111';
用完了SingleInstructor后记得释放
SingleInstructor.free
CInstructor = class
public
Instructor : string;
Code : string;
Param:Array[1..100] of string;
ParamCount: integer;
end;
----------
楼主上面的东西不是一个类吧,怎么看起来象个Record,但关键字又用class,有问题的
俺看错了,类没有问题
不 ekin(活着) 说的对,习惯不好
CInstructor = class
public
Instructor : string;
Code : string;
Param:Array[1..100] of string;
ParamCount: integer;
end;
procedure TFrmMain.btnParseClick(Sender: TObject);
var
flag:Boolean;
SingleInstructor:CInstructor;
begin
//SingleInstructor.Create ; //这句话会报错,内存错误,无法访问?
SingleInstructor:=CInstructor.Create;//改成这个看看
...
end;