2022-12-31 79 0

//Delphi 获取系统所有驱动器列表program Project2;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils,System.IOUtils, Types, TypInfo; var s: string; arr: TStringDynArray;begin try arr := TDirectory.GetLogicalDrives; for s in arr do begin Writeln(s);end; Readln

2022-12-31 40 0

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R

2022-12-31 27 0

定界符://--------------------------------------------------------------------------------var str: string; b: Boolean; n: Integer;begin str := 'http://del.cnblogs.com'; b := str.IsDelimiter(':', 4); // True b := str.IsDelimiter('//

2022-12-31 146 0

字符串连接:var S: string; str: string; strArr: TArray<string>;begin str := 'A1,B2,C3,,,,D4,E5,F6,G7'; strArr := str.Split([','], ExcludeEmpty); str := S.Join('-', strArr); // A1-B2-C3-D4-E5-F6-G7 str := S.Join(

2022-12-31 110 0

字符串分割://--------------------------------------------------------------------------------var str: string; arr: TArray<string>;begin str := 'A-1,B-2,,,C-3,D-4'; arr := str.Split([',']); // arr[0]

2022-12-31 36 0

TDictionary 类似哈希表.本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Bu

2022-12-31 29 0

TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TStack 主要有三个方法、一个属性:Push(压栈)、Pop(出栈)、Peek(查看下一个要出栈的元素);Count(元素总数).本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type

2022-12-31 39 0

TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TQueue 主要有三个方法、一个属性:Enqueue(入列)、Dequeue(出列)、Peek(查看下一个要出列的元素);Count(元素总数).本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr