文件共466篇

delphi 判断文件名是否有效

function IsValidFileName(const fileName: string): boolean;const  InvalidCharacters : set of char = ['', '/', '...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05515

delphi 实现批量文件名修改

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04913

delphi 三种方式读取TXT文本文件

function Readtxt(const filename: TFileName): String;var  List: TStringList;begin  if (FileExists(filename)) then  begin    List := TStringList.Create; ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
06014

delphi 判断文件是否被占用

function IsFileInUse(fName: string) : boolean;var  HFileRes: HFILE;begin  Result := False;  if not FileEx...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04611

Delphi 文件夹重命名

function   RenDirectory(const   OldName,NewName:string):   boolean;  var      fo:  &n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0398

Delphi TDirectory.GetDirectories获取子目录及文件

和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0585

Delphi TextFile UTF8编码读写

procedure TForm1.Button1Click(Sender: TObject);var  Outfile: TextFile;begin  AssignFile(Outfile, 'test_chinese.txt', CP_UTF8);  Rewrite(Outfile);  //This is the...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03911

Delphi删除文件

Delphi删除文件在本文中,我们将看到如何从Delphi中删除文件(Delphi删除文件),为此,我们将不得不使用System.SysUtils单元。在SysUtils内部,我们具有DeleteFile函数,该函数从磁盘上删除文...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05511

Delphi TDirectory.TFilterPredicate

TDirectory.GetFiles 函数还有一个 TDirectory.TFilterPredicate 类型的参数, 这是个匿名函数类型, 可对搜索结果再处理.unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0557

Delphi TDirectory.GetDirectories

和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.unit Unit1;interfaceuses&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0528
Delphi 缓冲文件流-TBufferedFileStream  TFileStream 性能测试-Delphi编程技巧大全

Delphi 缓冲文件流-TBufferedFileStream TFileStream 性能测试

uses  System.Diagnostics; // TStopwatchprocedure TForm1.btnWriteClick(Sender: TObject);var  sw: TStreamWriter;  I: Integ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0467

Delphi 老外分享的textFile高速遍历大数据文本

请确保您使用的是FastMM4-这样可以加快速度。内存分配很多。如果您只读取一次文件,则可以根据需要继续使用旧的“ TextFile”处理。只需添加一些更大的读取缓冲区,并摆脱I / O检查即可: ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04115

Delphi 释放资源文件

varMyRes: TResourceStream;  //资源文件beginif not FileExists('my.dll') then   //判断是否存在对应文件  begin    try      dmRes := TResou...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0598

Delphi TStreamReader TFile AssignFile读取文本文件

在Delphi中有多种读取文本文件的方法,但是有优点和缺点,因此请根据情况正确使用它们。我认为使用TStreamReader或TFile是正常的,但是存在无法读取锁定文件的问题。 TStreamReaderTFileAs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05113

Delphi TFileStream 逐行读取文本

function ReadTXTInfo: String;var  Ch: Char;  FS: TFileStream;begin  Result := '';  FS := TFileStream.Create('animals.txt', fmOpenRead);  try    w...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
04313
Delphi memo 手动选择txt文本编码并读取-Delphi编程技巧大全

Delphi memo 手动选择txt文本编码并读取

(前略)  private    { Private  }    FFileName: String;        FEncodingIndex: Integer;  public    { Public ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0468

Delphi 创建文件夹并打开

uses shellapi;procedure CreateOpenDir(h : THandle; dir : string ; IsOpen : Boolean = False);var  s : Cardinal;begin  if not DirectoryExists( dir ) then //判断目录是否存在...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0355

Delphi DeleteFiles 删除目录下多个文件

function DeleteFiles(const Dir, Wildcard: string): Integer;var  Files: TStringList; // stores files to be deleted  I: Integer;         // loops t...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0457

Delphi 获取上一次文件访问时间

上次访问该文件的时间是什么?这是如何编写一个函数的示例,该函数将返回文件的上次访问时间(不要与上次修改时间混淆)。function GetFileLastAccessTime(sFileName: string): TDateTime;var&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03115

Delphi 合并文件

procedure MergeFiles(const Files: TStrings; const TargetFile: string);var  I: Integer;  InStm, OutStm: TFileStream;begin  OutStm := TFileStream.Create(TargetFile, fm...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0529

Delphi 如何替换Word文档中的文本

use ActiveX, ComObj;const   wdFindContinue = 1;  wdReplaceOne = 1;  wdReplaceAll = 2;var   WordApp: Variant;begin  // create OLE object for MS Wo...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05611

Delphi 如何使用通配符删除文件

方案1:您会非常失望,因为根据文件放入目录结构的顺序,文件的删除会导致FindNext跳过匹配的现有文件,因此您最终将不会删除所有想要的文件。您要做的是设置要删除的列表。然后,一旦设置了列表...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
05411

Delphi 如何将多个文件复制到一个

Answer 1procedure TForm1.Button1Click(Sender: TObject);var  Stream1, Stream2: TFileStream;begin  Stream1 := TFileStream.Create('c: ile4', fmCreate or fmShareExclusive);&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0568

Delphi 二进制转换为文本

Test for a binary form file//判断二进制格式文件function IsDFMBinary(FileName: string): Boolean;var  F: TFileStream;  B: Byte;begin  B := 0;  F := TFileStream.Cr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0599

Delphi 判断是否为二进制文件

function IsDFMBinary(FileName: string): Boolean;var  F: TFileStream;  B: Byte;begin  B := 0;  F := TFileStream.Create(FileName, fmOpenRead);  try  &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0496

Delphi 快速选择文件夹路径

uses  ShlObj;function FindFolder(Handle: THandle; Title: string = '请选择文件夹路径'): string;var  lpItemID: PItemIDList;  BrowseInfo: TBrowseInfo;  DisplayName...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
02813

Delphi 删除文件函数支持撤销删除

uses ShellAPI;function DeleteFileWithUndo(sFileName: string): boolean;var  fos: TSHFileOpStruct;begin  FillChar(fos, SizeOf(fos), 0);  with fos do  begin//delph...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
0625

Delphi 在长文件名和短文件名之间转换

uses  Windows, SysUtils;function GetShortName(sLongName: string): string;var  sShortName    : string;  nShortNameLen : integer;begin  SetLength(sShort...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03512

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03112
delphi 无法打不开读取文件名有逗号的文件-Delphi编程技巧大全

delphi 无法打不开读取文件名有逗号的文件

 解决办法:文件路径加双引号
Top_Admin的头像-Delphi编程技巧大全Top_Admin29天前
03514