{"id":1034,"date":"2010-04-23T10:12:00","date_gmt":"2010-04-23T02:12:00","guid":{"rendered":""},"modified":"2013-11-17T16:46:29","modified_gmt":"2013-11-17T08:46:29","slug":"delphi%e5%88%a9%e7%94%a8%e6%b3%9b%e5%9e%8b%e8%bf%9b%e8%a1%8c%e6%8e%92%e5%ba%8f","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/1034.html","title":{"rendered":"Delphi\u5229\u7528\u6cdb\u578b\u8fdb\u884c\u6392\u5e8f"},"content":{"rendered":"<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\n  Dialogs, StdCtrls;\r\n\r\ntype\r\n  TForm1 = class(TForm)\r\n    Memo1: TMemo;\r\n    Memo2: TMemo;\r\n    Button1: TButton;\r\n    Button2: TButton;\r\n    Button3: TButton;\r\n    Button4: TButton;\r\n    Button5: TButton;\r\n    Button6: TButton;\r\n    Button7: TButton;\r\n    Button8: TButton;\r\n    Button9: TButton;\r\n    Button10: TButton;\r\n    procedure Button1Click(Sender: TObject);\r\n    procedure Button2Click(Sender: TObject);\r\n    procedure Button3Click(Sender: TObject);\r\n    procedure Button4Click(Sender: TObject);\r\n    procedure Button5Click(Sender: TObject);\r\n    procedure Button6Click(Sender: TObject);\r\n    procedure Button7Click(Sender: TObject);\r\n    procedure Button8Click(Sender: TObject);\r\n    procedure Button9Click(Sender: TObject);\r\n    procedure Button10Click(Sender: TObject);\r\n  end;\r\n\r\nvar\r\n  Form1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nuses Generics.Collections, Generics.Defaults; {\u5fc5\u9700\u7684\u6cdb\u578b\u5355\u5143}\r\n\r\n\/\/\u6784\u5efa\u7531 10 \u4e2a\u6574\u6570\u7ec4\u6210\u7684\u52a8\u6001\u6570\u7ec4, \u7136\u540e\u6392\u5e8f\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\nbegin\r\n  {\u6784\u5efa\u52a8\u6001\u6570\u7ec4}\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  {\u663e\u793a\u6392\u5e8f\u524d}\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  {\u6392\u5e8f}\r\n  TArray.Sort(arr); {\u5b83\u53ef\u4ee5\u6709 1\u4e2a\u30012\u4e2a\u30014\u4e2a\u53c2\u6570, \u8fd9\u91cc\u53ea\u7528\u4e86\u4e00\u4e2a\u53c2\u6570, \u5176\u4ed6\u662f\u9ed8\u8ba4\u53c2\u6570}\r\n\r\n  {\u663e\u793a\u6392\u5e8f\u7ed3\u679c}\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\nend;\r\n\r\n\/\/ TArray.Sort \u7684\u7b2c\u4e8c\u4e2a\u53c2\u6570\u662f IComparer \u7c7b\u578b, \u5176\u9ed8\u8ba4\u503c\u662f: TComparer.Default\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\nbegin\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  {\u4f7f\u7528\u4e86\u6392\u5e8f\u5668\u7684\u9ed8\u8ba4\u503c\u6392\u5e8f, \u8fd9\u548c\u5ffd\u7565\u8fd9\u4e2a\u53c2\u6570\u662f\u4e00\u6837\u7684}\r\n  TArray.Sort(arr, TComparer.Default);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\nend;\r\n\r\n\/\/\u540c\u4e0a\u4e24\u4f8b, \u53d8\u901a\u4e86\u4e00\u4e0b\u5199\u6cd5\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  Comparer := TComparer.Default;\r\n  TArray.Sort(arr, Comparer);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\nend;\r\n\r\n\/\/ TArray.Sort \u7684\u540e\u9762\u4e24\u4e2a\u53c2\u6570\u53ef\u4ee5\u6307\u5b9a\u6392\u5e8f\u8303\u56f4:\r\nprocedure TForm1.Button4Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  Comparer := TComparer.Default;\r\n  {\u8fd9\u91cc\u6307\u5b9a\u4ece\u7b2c 1 \u4e2a\u5143\u7d20\u5f00\u59cb, \u53ea\u7ed9 3 \u4e2a\u5143\u7d20\u6392\u5e8f}\r\n  TArray.Sort(arr, Comparer, 0, 3);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\nend;\r\n\r\n\/\/\u5982\u679c\u8981\u5012\u6392\u5e8f, \u53ef\u4ee5\u5efa\u7acb\u81ea\u5df1\u7684\u6392\u5e8f\u5668, \u4e0b\u9762\u5c31\u662f\u5148\u6784\u5efa\u5e76\u5b9e\u73b0\u4e86\u4e00\u4e2a TMyComparer, \u7136\u540e\u8c03\u7528:\r\ntype\r\n  TMyComparer = class(TComparer)\r\n  public\r\n    function Compare(const Left, Right: Integer): Integer; override;\r\n  end;\r\n\r\n{ TMyComparer }\r\nfunction TMyComparer.Compare(const Left, Right: Integer): Integer;\r\nbegin\r\n  Result := Right - Left;\r\nend;\r\n\r\nprocedure TForm1.Button5Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\n  Comparer: TMyComparer;\r\nbegin\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  Comparer := TMyComparer.Create;\r\n  TArray.Sort(arr, Comparer);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\n  Comparer.Free;\r\nend;\r\n\r\n\/\/ \u4e5f\u53ef\u4ee5\u7528 TComparer.Construct \u65b9\u6cd5, \u901a\u8fc7\u4e00\u4e2a TComparison \u683c\u5f0f\u7684\u51fd\u6570\u6784\u5efa\u6392\u5e8f\u5668, \u8fd9\u6837\u7b80\u5355\u4e00\u4e9b\r\nfunction MyFunc1(const Left, Right: Integer): Integer;\r\nbegin\r\n  Result := Right - Left;\r\nend;\r\n\r\nprocedure TForm1.Button6Click(Sender: TObject);\r\nvar\r\n  arr: array of Integer;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  Randomize;\r\n  for i := 0 to 9 do begin\r\n    SetLength(arr, Length(arr)+1);\r\n    arr&#x5B;i] := Random(10);\r\n  end;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(IntToStr(arr&#x5B;i]));\r\n\r\n  Comparer := TComparer.Construct(MyFunc1);\r\n  TArray.Sort(arr, Comparer);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(IntToStr(arr&#x5B;i]));\r\nend;\r\n\r\n\/\/\u5982\u679c\u662f\u7ed9\u81ea\u5b9a\u4e49\u7c7b\u578b\u7684\u5143\u7d20\u6392\u5e8f, \u53ea\u80fd\u662f\u81ea\u5efa\u6392\u5e8f\u5668\r\ntype\r\n  TPerson = record\r\n    name: string;\r\n    age: Word;\r\n  end;\r\n\r\nfunction MyFunc2(const Left, Right: TPerson): Integer;\r\nbegin\r\n  Result := Left.age - Right.age;\r\nend;\r\n\r\nprocedure TForm1.Button7Click(Sender: TObject);\r\nvar\r\n  arr: array of TPerson;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  SetLength(arr, 4);\r\n  arr&#x5B;0].name := 'AA'; arr&#x5B;0].age := 22;\r\n  arr&#x5B;1].name := 'BB'; arr&#x5B;1].age := 33;\r\n  arr&#x5B;2].name := 'CC'; arr&#x5B;2].age := 44;\r\n  arr&#x5B;3].name := 'DD'; arr&#x5B;3].age := 11;\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do\r\n    Memo1.Lines.Add(Format('%s : %d', &#x5B;arr&#x5B;i].name, arr&#x5B;i].age]));\r\n\r\n  Comparer := TComparer.Construct(MyFunc2);\r\n  TArray.Sort(arr, Comparer);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do\r\n    Memo2.Lines.Add(Format('%s : %d', &#x5B;arr&#x5B;i].name, arr&#x5B;i].age]));\r\nend;\r\n\r\n\/\/ TStringComparer.Ordinal \u662f\u5b98\u65b9\u5b9e\u73b0\u7684\u7528\u4e8e string \u7684\u6392\u5e8f\u5668, \u53ef\u76f4\u63a5\u4f7f\u7528.\r\n\/\/\u4f46\u5b83\u597d\u50cf\u6709\u95ee\u9898(Delphi 2010 - 14.0.3513.24210), \u4ee5\u540e\u7684\u7248\u672c\u5e94\u8be5\u80fd\u6539\u8fc7\u6765.\r\nprocedure TForm1.Button8Click(Sender: TObject);\r\nvar\r\n  arr: array of string;\r\n  i: Integer;\r\nbegin\r\n  SetLength(arr, 4);\r\n  arr&#x5B;0] := '222';\r\n  arr&#x5B;1] := '111';\r\n  arr&#x5B;2] := 'bbb';\r\n  arr&#x5B;3] := 'aaa';\r\n\r\n  Memo1.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo1.Lines.Add(arr&#x5B;i]);\r\n\r\n  TArray.Sort(arr, TStringComparer.Ordinal);\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr&#x5B;i]);\r\nend;\r\n\r\n\/\/\u4e0b\u9762\u662f\u5b9e\u73b0\u5b57\u7b26\u4e32\u6570\u7ec4\u7684\u5230\u6392\u5e8f\r\nfunction MyComparerFunc(const s1,s2: string): Integer;\r\nbegin\r\n  Result := CompareText(s2, s1);\r\n  \/\/Result := -CompareText(s1, s2); {\u6216\u8005\u8fd9\u6837}\r\nend;\r\n\r\nprocedure TForm1.Button9Click(Sender: TObject);\r\nvar\r\n  arr: array of string;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  Memo1.Clear;\r\n  Memo1.Lines.CommaText := '11,33,22,AAA,CCC,BBB';\r\n  SetLength(arr, Memo1.Lines.Count);\r\n  for i := 0 to Length(arr) - 1 do arr&#x5B;i] := Memo1.Lines&#x5B;i];\r\n\r\n  Comparer := TComparer.Construct(MyComparerFunc);\r\n  TArray.Sort(arr, Comparer);\r\n\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr&#x5B;i]);\r\nend;\r\n\r\n\/\/\u53ef\u4ee5\u628a\u4e0a\u4e00\u4e2a\u7a0b\u5e8f\u7b80\u5199\u4e3a:\r\nprocedure TForm1.Button10Click(Sender: TObject);\r\nvar\r\n  arr: array of string;\r\n  i: Integer;\r\n  Comparer: IComparer;\r\nbegin\r\n  Memo1.Clear;\r\n  Memo1.Lines.CommaText := '11,33,22,AAA,CCC,BBB';\r\n  SetLength(arr, Memo1.Lines.Count);\r\n  for i := 0 to Length(arr) - 1 do arr&#x5B;i] := Memo1.Lines&#x5B;i];\r\n\r\n  Comparer := TComparer.Construct(\r\n    function (const s1,s2: string): Integer\r\n    begin\r\n      Result := CompareText(s2, s1);\r\n    end);\r\n  TArray.Sort(arr, Comparer);\r\n\r\n  Memo2.Clear;\r\n  for i := 0 to Length(arr) - 1 do Memo2.Lines.Add(arr&#x5B;i]);\r\nend;\r\n\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>unit Unit1; interface uses Windows, Messages, SysUtils, [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-1034","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1034","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=1034"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1034\/revisions"}],"predecessor-version":[{"id":4701,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1034\/revisions\/4701"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=1034"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=1034"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=1034"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}