tools.pas

家庭财账管理软件.zip 毕业设计 论文加代码

unit Tools;
{Star Tools 0.01
 Written by David of 7 Star River Studio}

{edit 1996/4/6}
{1997.1.29}
{1997.1.30 v0.02 Add Procedure CopyFile}

interface

uses Sysutils,
 Forms;
 // StdCtrls, ComCtrls, Buttons, Mask, ToolEdit, CurrEdit,Db, DBTables;

{删去字符串右边的空格}
function RTrim(s:string) :string;
{创建空的文件 1996/4/6}
procedure CreateFile(lsFileName:string);
{将今天的日期输出为970102的六位格式字符串}{1997.1.29}
function GetTodayStr:string;
{返回指定的年月日是一年中的第几天}{1997.1.29}
function DayofTheYear(yr,mth,d : Word): Word;
{返回指定的年月日是一年中的第几天，年月日为一个yymmdd类型的字符串变量，
 返回是字符串变量。}{1997.1.29}
function DayofTheYearS(day:string): string;

{文件复制}{1997.1.30}
procedure CopyFile(sFromF,sToF:string);

//1998.5.11.
FUNCTION GetAppPath:string;

{1997.2.3}
FUNCTION FloatToFormat(lcMoney:extended):string;

implementation

{删去字符串右边的空格}
{1996/3/18 transfer from TP7}
function RTrim(s:string) :string;
var
	t:string;
	i:integer;
begin
	 t:='';
	 if s='' then begin
		RTrim:=''; exit;
	 end
	 else begin
		for i:=1 to length(s) do begin
		  t:=copy(s,i,1);
			if t=' ' then begin
				RTrim:=copy(s,1,i-1);
				exit;
			end;
		end;
	 end;
	 RTrim:=s;
end;


{创建空的文件}
{1996/4/6}
procedure CreateFile(lsFileName:string);
var
	f:text;
begin
	AssignFile(f,lsFileName);
	ReWrite(f);
	CloseFile(f);
end;

{将今天的日期输出为970102的六位格式字符串}
{1997.1.29}
function GetTodayStr:string;
var
	s:string;
begin
	GetTodayStr:=FormatDateTime('yymmdd',Date);
end;



{返回指定的年月日是一年中的第几天，年月日分别为整形变量，
 返回也是整形变量。}
{1997.1.29}
function DayofTheYear(yr,mth,d : Word): Word;
const
  TDays:Array[Boolean,0..12] of Word =
        ((0,31,59,90,120,151,181,212,243,273,304,334,365),
         (0,31,60,91,121,152,182,213,244,274,305,335,366));
var
	temp  : Word;
  lyr   : Boolean;
  today,year, month, day : Word;
begin
  lyr   := (yr mod 4 = 0);
  temp  := TDays[lyr][mth-1];
  inc(temp,d);
  DayofTheYear := temp;
end;

{返回指定的年月日是一年中的第几天，年月日为一个yymmdd类型的字符串变量，
 返回是字符串变量。}
{1997.1.29}
function DayofTheYearS(day:string): string;
begin
	DayOfTheYearS:=IntToStr(DayofTheYear(
  	StrToInt(copy(day,1,2)),
  	StrToInt(copy(day,3,2)),
     StrToInt(copy(day,5,2))));
end;

{文件复制}
{1997.1.30}
procedure CopyFile(sFromF,sToF:string);
var
	FromF,ToF:file;
  NumRead, NumWritten: integer;
  Buf: array[1..2048] of Char;
begin
  AssignFile(FromF, sFromF);
  Reset(FromF, 1);		{ Record size = 1 }
  AssignFile(ToF, sToF);	{ Open output file }
  Rewrite(ToF, 1);		{ Record size = 1 }
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  System.CloseFile(FromF);
  System.CloseFile(ToF);
end;

{1997.2.3}
FUNCTION FloatToFormat(lcMoney:extended):string;
begin
	FloatToFormat:=Format('%n',[StrToFloat(FloatToStr(lcMoney))]);
end;

//1998.5.11.
FUNCTION GetAppPath():string;
begin
	GetAppPath:=ExtractFileDir(Application.ExeName)+'\'
end;
end.