haiou327’blog

public { Public declarations } procedure ShowProgress(aPercent: Integer);----------------------------------------------------var

<br />function GetFileVersion(FileName:string):string;var V1,V2,V3,V4:Word; VerInfoSize:DWORD; VerInfo:Pointer; VerValueSize:DWORD;

<br />function right_str(ss: string; n: integer): string;var v_s: string; i: integer; cnt: integer;begin v_s := ''; cnt := lengt

var sHeadFile: string; F: file; B: array[0..2] of Byte; D, i: Integer;begin sHeadFile := ; if edt1.Text = then begin ShowMessage(请选择一个文件！); Exit; end; if FileExists(edt1.Text) th

所属单元：SysUtils函数功能：快速内存比较函数，可对两个文件比较、数组进行比较。据测试速度比一般算法要高60~110%。一、文件的比较你是否遇到过比较两个任意后缀名文件内容是否相同的问题？（TFileStream其他类可以方便的操作这些文件，但如果说

varstream: TMemoryStream;CrcValue,OldCrcValue: DWORD;exename: string;WriteBuf: array[0..3] of Byte;beginCRCValue := $FFFFFFFF;

shellexecute的返回值如果返回值  0 内存不足2 文件名错误3 路径名错误11 EXE 文件无效26 发生共享错误27 文件名不完全或无效28 超时29 DDE 事务失败30 正在处理其他 DDE 事务而不能完成该 DDE 事务

什么时候使用接口什么时候使用抽象在一个面向对象的系统中，系统的各种功能是由许许多多的不同对象协作完成的。在这种情况下，各个对象内部是如何实现自己的对系统设计人员来讲就不那么重要了；而各个对象之间的协作关系则成为系统设计的关键。小到不同类之间的通信，大到各模块之间的交互，在系统设计之初都是要着重考虑的，这也是系统设计的主要工作内容。面向接口编程我想就是指按照这种思想来编程吧！实际上，