basevar.pas

财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全

unit BaseVar;

interface

uses
  Config,forms,SysUtils;

var
  AppConfig:TConfig;
  AppPath:String;
  IniFileName:String;
  vConnectionString:string;
  CurYear:Integer;
  CurPeriod:Integer;

const
  RegSession:string='TinsFinance';
  SepStr:String='-';


function GetString(s,se:String;n:Integer):String;
function Replacing(S,source,target:string):string; //替换指定字符串

//初始化系统
procedure InitSys;
//结束系统
procedure DestroySys;

implementation

function GetString(s,se:String;n:Integer):String;
var
  rs:String;
  i,j:Integer;
begin
  i:=0;
  rs:='';
  if n=1 then
  begin
    while s[i]<>se do
    begin
      rs:=rs+s[i];
      i:=i+1;
    end;
    result:=trim(rs);
    exit;
  end;
  j:=1;
  i:=0;
  rs:='';
  while j<>n do
  begin
    while s[i]<>se do i:=i+1;
    while s[i]=' ' do i:=i+1;
    I:=I+1;
    j:=j+1;
  end;
//  I:=I+1;
  while (s[i]<>se) and (i<=Length(s)) do
  begin
    rs:=rs+s[i];
    i:=i+1;
  end;
  result:=trim(rs);
  exit;

end;

function Replacing(S,source,target:string):string;
var
	 site,StrLen:integer;
begin
	{source在S中出现的位置}
	site:=pos(source,s);
  while site<>0 do
  begin
  	{source的长度}
	  StrLen:=length(source);
	  {删除source字符串}
	  delete(s,site,StrLen);
	  {插入target字符串到S中}
	  insert(target,s,site);
    site:=pos(source,s);
  end;
  {返回新串}
	replacing:=s;
end;

procedure InitSys;
begin
  AppConfig:=TIniConfig.create(RegSession,IniFileName);
  vConnectionString:=AppConfig.ReadSetting('ConnString','Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Finance;Data Source=.');
end;

procedure DestroySys;
begin
  AppConfig.Free;
end;


end.