摘要： procedure parkdisk;
var regs: registers;
begin
regs.al := $00;
intr($13,regs);
assert((regs.flags and fcarry) = 0,
error getting disk parameters - al returns +inttostr (regs.al,0));
reg......
摘要：program fastcopy;
{$a+,b-,d-,e+,f+,g+,i-,l-,n+,p-,q-,r-,s-,t-,v-,x-,y-}
{$m 16384,$10000}
const
maxbufcnt = 1000;
type
bufptr = ^bufrec;
bufrec = array[0..8190] of byte;
var
infile,......
避免浮点操作的四舍五入错误上一页 ...
function samefloat (const x1, x2: extended): boolean;
begin 【程序编程相关:
[red]如何使用Delphi设计强大】 【推荐阅读:
在delphi中使用xml文档有两种方】
result := abs (x1 - x2) < esbtolerance 【扩展信息:
Yeeyee FrameWork (YF】
end;
function floatiszero (const x: extended): boolean;
begin
result := abs (x) < esbtolerance
end;
function floatispositive (const x: extended): boolean;
begin
result := (x >= esbtolerance);
end;
function floatisnegative (const x: extended): boolean;
begin
result := (x <= -esbtolerance);
end;
摘要：1-得到短文件名
function getshortfilename(const filename : string) : string;
var
atmp: array[0..255] of char;
begin
if getshortpathname(pchar(filename),atmp,sizeof(atmp)-1)=0 then
result:= filename ......
