2022-12-31 96 0

测试代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Button2: TButton; Button3: TButton;

2022-12-31 42 0

TDirectory.GetFiles 函数还有一个 TDirectory.TFilterPredicate 类型的参数, 这是个匿名函数类型, 可对搜索结果再处理.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; But

2022-12-31 62 0

和 TDirectory.GetFiles 用法一样, TDirectory.GetDirectories 是用来获取子目录的.另外还有 TDirectory.GetFileSystemEntries 可同时获取文件与子目录, 用法都一样.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 =

2022-12-31 234 0

替换://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := ABC ABC ABC; str2 := str1.Replace(A, *); // *BC *BC *BC str2 := str1.Replace(

2022-12-31 33 0

截取://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := Delphi XE4; str2 := str1.Substring(7); // XE4 str2 := str1.Substring(7, 2); // XEend;

2022-12-31 34 0

插入与删除://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := Delphi 4; str2 := str1.Insert(7, XE); // Delphi XE4 str1 := Delphi XE4; str2 := str1.Remove(6)

2022-12-31 76 0

清除两边空格或指定字符://--------------------------------------------------------------------------------var str1, str2: string;begin str1 := Delphi 10000 ; str2 := str1.TrimLeft; // Delphi 10000 str2 := str1.TrimRight; // D

2022-12-30 199 0

字符串对比://--------------------------------------------------------------------------------var str1, str2: string; n: Integer;begin str1 := ABC 123; str2 := abc 123; n := str1.CompareTo(str2); // -32 n := str1.Compare(