Delphi生成字符字典的代碼

Delphi生成字符字典的代碼，本人在整理Delphi代碼時候發現的，代碼簡單，有需要生成字符字典的可作為一個參考吧：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05 Dialogs, Math, StdCtrls; 06 type 07 TForm1 = class(TForm) 08 Memo1: TMemo; 09 Button1: TButton; 10 procedure Button1Click(Sender: TObject); 11 private 12 procedure MakePass; 13 public 14 { Public declarations } 15 end; 16 var 17 Form1: TForm1; 18 const 19 StartLEn = 1; 20 Endlen = 3; 21 srcDictString = ‘abcd’; 22 implementation 23 {$R *.dfm} 24 { TForm1 } 25 procedure TForm1.MakePass; 26 var 27 nRect: Integer; 28 nCount: Integer; 29 nTotal: Double; 30 I, J, K: Integer; 31 nIndex: array of Integer; 32 chPass: array of char; 33 strTemp: string; 34 begin 35 nCount := Length(srcDictString); 36 for I := StartLEn to Endlen do begin 37 nTotal := Power(nCount, I); 38 SetLength(nIndex, I); 39 SetLength(chPass, I); 40 for J := 0 to Trunc(nTotal) – 1 do begin 41 for K := 0 to I – 1 do begin 42 if (nIndex[K] = nCount) then begin 43 nIndex[K] := 0; 44 if K < I – 1 then 45 nIndex[K + 1] := nIndex[K + 1] + 1; 46 end; 47 end; 48 for K := 0 to I – 1 do begin 49 chPass[I - K - 1] := srcDictString[nIndex[K] + 1]; 50 end; 51 nIndex[0] := nIndex[0] + 1; 52 strtemp := string(@chPass[0]); 53 Memo1.Lines.Add(strTemp); 54 end; 55 end; 56 end; 57 procedure TForm1.Button1Click(Sender: TObject); 58 begin 59 MakePass; 60 end; 61 end.