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 61 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 232 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 33 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 75 0

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

2022-12-30 197 0

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