新手求学，delphi编程时会不会常用到 自己声明一个过程或函数 然后再调用？

Question

新手求学，delphi编程时会不会常用到 自己声明一个过程或函数 然后再调用？
如果常常会遇到，能不能举一个超简单的例子？万分感谢

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function   FixQry(CarNo,FixY,FixM:string):string;//这时声明
  end;var
  Form1: TForm1;implementation{$R *.dfm}
function  TForm1.FixQry(CarNo,FixY,FixM:string):string;
var
s1,s2,s3,sql:string; 
begin 
    if   (CarNo='')   then                                     //车号查询条件 
    s1:='1=1' 
    else
    s1:='车号='+''''+CarNo+''''; 
      if   (FixY='')   then                                   //年查询条件 
    s2:='1=1' 
    else 
    s2:='year(日期)='+''''+FixY+''''; 
  if   (FixM='')   then                                       //月查询条件 
    s3:='1=1' 
    else 
    s3:='month(日期)='+''''+FixM+''''; 
  sql:='select   *   from   车辆维修记录表   where   '+s1+' and '+s2+' and '+s3;
    result:= sql;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 {这里调用}
 edit1.Text:=FixQry('20014','2007','1');end;end.