u_function.pas

销售业绩核算系统

unit U_function;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, Grids, DBGrids, ADODB;

type
   Tzyt=class(Tobject)

     s:string;
  private
    { Private declarations }
  public
    // function getfilepath(s:string):string;
    { Public declarations }
  end;



implementation
function getfilepath(s:string):string;
begin
 result:=ExtractfileDir(application.ExeName);
end;
end.