procedure TForm1.Button2Click(Sender: TObject);
var
log : Tlogfile;
begin
log.Create; // this is wrong
log := Tlogfile.Create; // this is correct
log.setfile('12345');
log.showfile;
log.Free;
end;
var
log : Tlogfile;
begin
log.Create; // this is wrong
log := Tlogfile.Create; // this is correct
log.setfile('12345');
log.showfile;
log.Free;
end;
log.Create
换上另外一句。
你的贴子怎么有这么多的<br />和空行,我费了半天劲才看懂.