盒子论坛 v2.1

各位大侠，请问这个‘DbGrid查询内容导出为Txt的函数’如何加到程序中？？请赐教！！！
procedure TForm1.Button1Click(Sender: TObject);
begin
  DbgridToTxt(dbgrid1);
end;

procedure Tform1.DbgridToTxt(source:Tobject);
var
  filename:Textfile;
  Dataset:Tdataset;
  titlestr,valuestr,tempstr:string;
  counter:integer;
begin
  if (source is Tdbgrid)then
    Dataset:=Tdbgrid(source).DataSource.DataSet
    else
      Dataset:=TDataset(source);
  if ((Dataset.IsEmpty)or(not Dataset.Active))then
    exit else
    begin
      Dataset.DisableControls;
      Dataset.First;
      if savedialog1.Execute then
        begin
          assignfile(filename,savedialog1.FileName);
          rewrite(filename);
          for counter:=0 to Dataset.FieldCount-1 do
          titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
          titlestr:=trim(titlestr);
          writeln(filename,titlestr);
          while not Dataset.Eof do
            begin
              valuestr:=';
              for counter:=0 to Dataset.FieldCount-1 do
              begin
                tempstr:=Dataset.Fields[counter].Text;
                valuestr:=valuestr+char(9)+tempstr;
              end;
              valuestr:=trim(valuestr);
              writeln(filename,valuestr);
              Dataset.Next;
            end;
              closefile(filename);
          end;
              Dataset.EnableControls;
    end;
end;

----------------------------------------------
-

作者：

scan444 (scan444)	★☆☆☆☆	-
	禁用账号

2003/9/30 1:01:36

1楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
第一次见到你,我爱上了你,是我不够了解你,所以一直让你生气,提示我,责问我,Borland,我要像对待女友一样对待你，陪你一辈子.相信我

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/9/30 7:57:48

2楼：

作用域是C++的面向对象的思想：私有成员函数和共有成员函数

私有成员函数：不能不类对象访问
共有成员函数：可以被自身类对象访问可以被其他类对象访问
保护成员函数：只能被自身的子类对象访问

class TForm1:public TForm
{__publish:
void __fastcall DbgridToTxt(Tobject *source);//可以写声明在这里
private:
void __fastcall DbgridToTxt(Tobject *source);//也可以写声明在这里
public:
void __fastcall DbgridToTxt(Tobject *source);//也可以写声明在这里
};

----------------------------------------------

信息

登陆以后才能回复