摘要：纲要:AssignFile: 关联Rewrite: 创建并打开一个新文件, 如已存在则覆盖Reset: 打开已存在的文件; 追加也要用它先打开, 然后再移动指针; Append 是文本文件专用的CloseFile: 关闭FileSize: 记录数FilePos: 返回文件的当前位置Seek: 把文件指针移到指定位置(只用于结构化文件)Eof: 文件尾Read: 读Write: 写另外: 包含长字符串、变量、类实例、接口或动态数组的记录不能写入类型文件中!//操作示例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, 阅读全文

摘要：function GetFileSize(const FileName: string): Int64;var SR: TSearchRec;begin Result := -1; if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then try Result := SR.Size; finally ... 阅读全文

摘要：var Form1: TForm1; implementation {$R *.dfm} //分割文件的函数{参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB} {分割后的文件名扩展名用序号替换} function SplitFile(const FileName: string; Size: Cardinal): Boolean; var fStream: T... 阅读全文

摘要：//显示窗体中所有控件的函数function GetCtrls(Control: TWinControl; List: TStringList): Boolean; var i: Integer; obj: TWinControl; begin for i := 0 to Control.ControlCount-1 do begin obj := TWinControl(Contro... 阅读全文

摘要：function GetPyChar(const HZ: AnsiString): string; const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2... 阅读全文

摘要：var Form1: TForm1; implementation {$R *.dfm} uses Zlib; //压缩函数procedure Zip(var fs: TMemoryStream); var cs: TCompressionStream; ms: TMemoryStream; num: Integer; begin if not(Assigned(fs) and ... 阅读全文

摘要：{给 Memo 排序的函数} procedure SortMemo(const m: TMemo); begin with TStringList.Create do begin Sorted := True; Text := m.Text; m.Text := Text; Free; end; end; 菊子曰：我在用着的博客编辑软件 阅读全文

摘要：//10次抽样比较，这样速度会快点，不适合特别大的文件，这样容易漏比 function CompFile(const f1,f2: string): Boolean; var fs1,fs2: TFileStream; ms: TMemoryStream; i,p: Integer; b1,b2: Byte; begin Result := False; if not (FileExi... 阅读全文

摘要：function GB2Big(GB: string): string; var Len: Integer; begin Len := Length(GB); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Le... 阅读全文

摘要：{从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted := True;... 阅读全文

摘要：{函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIG... 阅读全文

摘要：前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。 文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: Assig... 阅读全文

摘要：执行一个外部程序并等待他的结束 //下面的函数执行一个程序并且等他的结束。 //在外部程序结束运行之前，不能做任何操作！ //EXL:WinExecW('C:\Windows\NOtePad.exe', '', sw_show); Function WinExecW(CMD, WorkDir: PChar; Visialbe: integer):DWORD; var StartupInfo: TS... 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2:... 阅读全文

摘要：最近在做的一个软件，其中有一部分功能需要调用其它的软件来完成，而那个软件只有可执行文件，根本没有源代码，幸好，我要做的事不难，只需要在我的程序启动后，将那个软件打开，在需要的时候，对其中的一个文本矿设置一些文字，再点击一个按钮就可以了。 说到这里，相信你也有了对该功能的一些初步设想了，没错，其基本思路就是： 1）调用CreateProcess（）打开目标程序。 2）用FindWindow（）找到... 阅读全文