一个自定义类的简单问题,请高手指点
我在unit中定义了一下类,执行后关闭窗口时发生错误提示,说内存错误。以下是我定义的类,以及调用的代码,晴高手执教:
type
TLogFile = class
private
LogFile:String;
public
constructor Create;
destructor Destroy; override;
procedure setfile(filename:string);
procedure showfile();
published
end;
implementation
{$R *.DFM}
constructor TLogFile.Create;
begin
inherited;
end;
destructor TLogFile.Destroy;
begin
inherited;
end;
procedure TLogFile.setfile(filename:string);
begin
logfile:=filename;
end;
procedure TLogFile.showfile();
begin
showmessage(logfile);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
log : Tlogfile;
begin
log.Create;
log.setfile('12345');
log.showfile;
log.Free;
end;