Question

请教delphi中create函数的用法（原型和例子）

请教delphi中create函数的用法（原型和例子）
其实就在一个软件里碰到一行代码看不懂，代码如下：
tmpStream := TFileStream.Create(ExtractFilePath(application.ExeName) + '\' + PicName, fmCreate);
也就里面的参数看得迷糊，所以发帖出来请教。

Answer 1

不知道你要用这个方法来创建什么？不过你可以在delphi的帮助里查找阿 下面的例子是创建了路径的
The following example creates a directory :\temp?if it does not already exist.

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('c:\temp') then
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create c:\temp');
end;

Answer 2

=.=~动态创建吧?楼主的目的..俺猜的
举个例子吧..
var
qry_tmp:tadoquery;
begin
qry_tmp:=tadoquery.Create(self);
qry_tmp.Connection:=ADODataSet1.Connection;
qry_tmp.Close;
qry_tmp.SQL.Clear;
qry_tmp.add....
略去

这个create(self); 意思就是...如果是在本窗体里的unit里写的话 self就是指本窗体..和这个窗体共存亡(共同释放内存)

当然你也可以在那之前自己释放他
qry_tmp.Free;