摘要：
Self.Menu := nil; {隐藏菜单}Self.Menu := MainMenu1; {显示菜单} 阅读全文
摘要：
type TListView = class(ComCtrls.TListView) procedure WMHSCROLL(var Msg: TWMHSCROLL); Message WM_HSCROLL; //水平滚动条 procedure WMVSCROLL(var Msg: TWMVSCROLL); Message WM_VSCROLL; //垂直滚动条 end;TForm26 = class(TForm)ListView1: TListView;procedure TListView.WMVSCROLL(var Message: TMessage); //垂直滚动条begin Sho 阅读全文
该文被密码保护。 阅读全文
该文被密码保护。 阅读全文
该文被密码保护。 阅读全文
摘要：
procedure TForm1.FileOpenClick(Sender: TObject);var getStream: TFileStream;begin if isOpen then if openDialog1.Execute then FFileName := openDialog1.FileName; Encoding := Form22.GetTextEncoding(FFileName); getStream := TFileStream.Create(FFileName, fmOpenRead or fmShareDenyNone); richEdit.Lines.Load 阅读全文
摘要：
procedure TForm22.ListView1DblClick(Sender: TObject);var fileName: string;begin if ListView1.Selected <> nil then //选择 begin fileName := ListView1.Selected.SubItems.Strings[3]; Form1.Show; Form1.isOpen := false; Form1.FFileName := fileName; Form1.FileOpenClick(Sender); end;end; 阅读全文
摘要：
var FS: TSearchRec; FPath: String;begin FPath := IncludeTrailingPathDelimiter(dir); {dir是目标文件} if FindFirst(FPath + '*.*', faAnyFile, FS) = 0 then begin FileTimeToLocalFileTime(FS.FindData.ftLastWriteTime, Temp);//FS.FindData.ftLastWriteTime找出文件修改时间FileTimeToSystemTime(Temp, Tct);dateTime := 阅读全文
摘要：
function TForm22.SearchAllFile(const FileName: string; const SearchText: string;IsReplace: Boolean; const ReplaceText: string): Boolean;var getStream: TFileStream; setStream: TFileStream; temp: TStringList; AEncoding: TEncoding;begin AEncoding := GetTextEncoding(FileName); getStream := TFileStream.C 阅读全文
摘要：
function TForm22.SearchFileType(const FileName: string): string; var ms: TFileStream; {声明一个文件流} mestr: String;begin ms := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone); if ms.Size <> 0 then begin setLength(mestr, 2);//申请字符指针内存 ms.Read(mestr[1], 1); {取第一个字符} ms.Read(mestr[2], 1); 阅读全文
摘要：
{对Unicode文件进行替换}function TForm22.SearchIniFile(const FileName: string;const SearchText: string; IsReplace: Boolean;const ReplaceText: string): boolean;var getStream: TFileStream; {声明一个文件流} setStream: TFileStream; getPath: String; meint, I, J: LongInt; pstr: Pchar; mestr, mestr1: String; bool: boolea 阅读全文
摘要：
mestr1 := StringReplace(mestr, SearchText, ReplaceText, [rfReplaceAll]);mestr表示源文本SearchText表示需要替换的文本ReplaceText表示要替换成的文本[rfReplaceAll] 替换操作字符串mestr1返回的文本 阅读全文
摘要：
if PosEx(SearchText, mestr, N) > 0 then {表示inString中有一句话SearchText} if Pos(SearchText, mestr) > 0 thenmestr表示源文本String型SearchText表示查找的内容，两个函数都是判断在mestr中是否存在SearchText字符串，PosEx返回第N个字符串的位置。Pos返回找到第一个字符串的位置 阅读全文
摘要：
{对Txt文件进行替换，ANSI类型}function TForm22.SearchFile(const FileName, SearchText: string; IsReplace: boolean; const ReplaceText: string): boolean;var inFile: TextFile; inString: String; Temp: TStringList; bool: boolean;begin Temp := TStringList.Create; assignFile(inFile, FileName); //关联文本文件 reset(inFile); 阅读全文
摘要：
{文件路径+精确文件名+查找内容+是否替换+替换内容}function TForm22.SearchDir(const Dir, FileType, SearchText: string; IsReplace: boolean; const ReplaceText: string): boolean;var FS: TSearchRec; FPath: String;begin FPath := IncludeTrailingPathDelimiter(Dir); {返回APath:\} if FindFirst(FPath + '*.*', faAnyFile, FS) = 阅读全文
摘要：
procedure TForm22.selectDirClick(Sender: TObject);var dir: String;begin SelectDirectory('Select Search Directory','',dir); {得到目录路径+目录名} if dir <> '' then begin cbSearchDir.Text := IncludeTrailingPathDelimiter(dir); //如果Dir最后一个字符不是'\'，加上一个'\'表示路径 end;end; 阅读全文
摘要：
procedure TForm26.CheckBoxClick(Sender: TObject); //当你点击chcekBox的时候，会自动改变CheckBox.Checked的值，这是点击操作begin ShowListView(CheckBox.Checked);end; 阅读全文
摘要：
Function TForm26.ShowListView(IsCheck: Boolean): Boolean; //通过判定IsCheck,确定是否将第一行放置到Columns列位置var I, J, M: Integer; Titem: Tlistitem;begin listView1.Columns.Clear; listView1.Items.Clear; with ListView1 do begin for M := 0 to col - 1 do begin Columns.Add; Columns.Items[M].Width := 100; Columns.Items[M 阅读全文