{"id":1197,"date":"2010-07-13T09:57:00","date_gmt":"2010-07-13T01:57:00","guid":{"rendered":""},"modified":"2013-11-17T16:42:14","modified_gmt":"2013-11-17T08:42:14","slug":"delphi2010%e4%b8%ad%e7%9a%84%e6%b3%9b%e5%9e%8b","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/1197.html","title":{"rendered":"Delphi2010\u4e2d\u7684\u6cdb\u578b"},"content":{"rendered":"<p>2010\u5df2\u53d1\u5e03\u5f88\u957f\u65f6\u95f4\u4e86\uff0c\u53e3\u7891\u8fd8\u4e0d\u9519\uff0c\u51c6\u5907\u7528\u5b83\u5f00\u53d1\u4e0b\u4e00\u9879\u76ee\uff0c\u4f46\u5bf9\u6cdb\u578b\u7b49\u65b0\u4e1c\u897f\u7684\u8ba4\u8bc6\u8fd8\u4e0d\u591f\uff0c\u5c31\u641c\u4e86\u4e00\u4e0b\uff0c\u53d1\u73b0\u4e0b\u9762\u8fd9\u7bc7\u6587\u7ae0\uff0c\u8fd8\u4e0d\u9519\uff0c\u5927\u5bb6\u4e00\u8d77\u8865\u8865\u8bfe\u5427\uff01<\/p>\n<p>C++\u4e2d\u7684\u6a21\u677f\u3001C#\u7b49\u8bed\u8a00\u4e2d\u6cdb\u578b\u6280\u672f\uff0c\u7ed9\u8bb8\u591a\u64cd\u4f5c\u4e0d\u540c\u7c7b\u578b\u6570\u636e\u7684\u8f6f\u4ef6\u4eba\u5458\u63d0\u4f9b\u4e86\u4e00\u4e2a\u5f88\u597d\u7684\u65b9\u6cd5\u3002\u5176\u7c7b\u578b\u7684\u201c\u53ef\u53d8\u201d\u6027\uff0c\u8ba9\u8bb8\u591a\u7528\u8fc7\u7684\u8f6f\u4ef6\u4eba\u5458\u6240\u5fc3\u559c\u3002\u4f46\u662f\u5728Delphi 2009\u4ee5\u524d\u7684\u7248\u672c\u4e2d\uff0c\u662f\u4ece\u6765\u6ca1\u6709\u7684\u3002\u8ba9\u8bb8\u591a\u4e0d\u4f1a\u7528Delphi\u4e2dTList\u7684\u4eba\u5458\uff0c\u5927\u5927\u7684\u62b1\u6028\u3002\u5982\u679c\u7528\u597dDelphi\u4e2dTList\uff0c\u5176\u53ef\u7528\u6027\uff0c\u6211\u4e2a\u4eba\u8ba4\u4e3a\uff0c\u6bd4\u5176\u5b83\u8bed\u8a00\u4e2d\u7684\u6cdb\u578b\u597d\u7528\u5f88\u591a\uff08\u5f53\u7136\u5bf9\u6307\u9488\u7684\u5e94\u7528\u548c\u5185\u5b58\u7684\u5206\u914d\u3001\u91ca\u653e\u4e0d\u4e86\u89e3\u7684\u4eba\u9664\u5916\uff09\u3002<\/p>\n<p>\u81ea\u4eceDelphi 2009\u7684\u53d1\u5e03\uff0c\u7ed9\u8bb8\u591a\u559c\u6b22\u7528\u6cdb\u578b\u6280\u672f\u7684\u8f6f\u4ef6\u4eba\u5458\uff0c\u63d0\u4f9b\u4e86\u65b9\u4fbf\u3002\u7531\u4e8eDelphi 2009\u4e0d\u592a\u7a33\u5b9a\uff0c\u4e5f\u6ca1\u6709\u8fc7\u591a\u7684\u53bb\u7528\u5176\u6cdb\u578b\u6280\u672f\u3002Delphi 2010\u53d1\u5e03\u4ee5\u6765\uff0c\u51fa\u73b0\u8bb8\u591a\u201cDelphi 2010\u521d\u4f53\u9a8c\uff0c\u662f\u65f6\u5019\u629b\u5f03Delphi 7\u4e86\u201d\u7684\u8bdd\u8bed\u7684\u6ee1\u5929\u98de\uff0c\u8ba9\u6211\u60f3\u4e00\u770b\u5176\u7a76\u7adf\u3002<\/p>\n<p>\u95f2\u8bdd\u5c11\u8bf4\uff0cDelphi 2010\u7684\u6cdb\u578b\u5355\u5143Generics.Defaults\u3001Generics.Collections\uff1b\u91cd\u70b9\u8fd8\u662fGenerics.Collections\u5355\u5143\uff0c\u5176\u4e2d\u6709TArray\u6cdb\u578b\u7c7b\u3001TList\uff08\u5217\u8868\u7684\u6cdb\u578b\uff09\u3001TQueue\uff08\u961f\u5217\u7684\u6cdb\u578b\uff09\u3001TStack \uff08\u6808\u7684\u6cdb\u578b\uff09\u3001TDictionary \uff08Hash Table\u54c8\u5e0c\u8868\u7684\u6cdb\u578b\uff09\u53ca\u5176\u4e0a\u8ff0\u6cdb\u578b\u6240\u5bf9\u5e94\u7684TObject\u7684\u6cdb\u578b\uff0c\u975e\u5e38\u5e7f\u6cdb\u3002<\/p>\n<p>\u7b80\u5355\u7684\u6cdb\u578b\u7c7b\u5e94\u7528\uff1a(\u8f6c)<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\nDialogs, StdCtrls;\r\n\r\ntype\r\nTForm1 = class(TForm)\r\n    Memo1: TMemo;\r\n    Edit1: TEdit;\r\n    Edit2: TEdit;\r\n    Button1: TButton;\r\n    Button2: TButton;\r\n    Button3: TButton;\r\n    Button4: TButton;\r\n    procedure FormCreate(Sender: TObject);\r\n    procedure FormDestroy(Sender: TObject);\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\nend;\r\n\r\nvar\r\nForm1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nuses Generics.Collections; {Delphi \u6cdb\u578b\u5bb9\u5668\u5355\u5143}\r\n\r\nvar\r\nDictionary: TDictionary;\r\n{\u5b9a\u4e49\u4e00\u4e2a\u6cdb\u578b TDictionary \u7c7b, \u6307\u5b9a\u6709 Cardinal\u3001string \u6784\u6210}\r\n\r\n{\u5efa\u7acb}\r\nprocedure TForm1.FormCreate(Sender: TObject);\r\nbegin\r\nDictionary := TDictionary.Create;\r\n\r\nMemo1.Clear;\r\nButton1.Caption := Button1.Caption + ' \u6dfb\u52a0';\r\nButton2.Caption := Button2.Caption + ' \u5220\u9664';\r\nButton3.Caption := Button3.Caption + ' \u5c1d\u8bd5\u53d6\u503c';\r\nButton4.Caption := Button4.Caption + ' \u6e05\u7a7a';\r\n\r\nEdit1.Clear;\r\nEdit2.Clear;\r\nEdit1.NumbersOnly := True;\r\nend;\r\n\r\n{\u91ca\u653e}\r\nprocedure TForm1.FormDestroy(Sender: TObject);\r\nbegin\r\nDictionary.Free;\r\nend;\r\n\r\n{\u6dfb\u52a0}\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nkey: Cardinal;\r\nvalue: string;\r\nstr: string;\r\nk,v: Boolean;\r\nbegin\r\nkey := StrToIntDef(Edit1.Text, 0);\r\nvalue := Edit2.Text;\r\nif value = '' then value := 'Null';\r\n\r\nk := Dictionary.ContainsKey(key);     {Key \u662f\u5426\u5b58\u5728}\r\nv := Dictionary.ContainsValue(value); {Value \u662f\u5426\u5b58\u5728}\r\n\r\nif not k then\r\nbegin\r\n    Dictionary.Add(key, value);\r\n    Memo1.Lines.Add(Format('%d=%s', &#x5B;key, value])); {\u540c\u6b65\u663e\u793a}\r\nend;\r\n\r\nif k and not v then\r\nbegin\r\n    str := Format('key \u5df2\u5b58\u5728: %d=%s; \u662f\u5426\u4fee\u6539\u5176\u503c?', &#x5B;key, Dictionary&#x5B;key]]);\r\n    if MessageBox(0, PChar(str), '\u63d0\u793a', MB_OKCANCEL or MB_ICONQUESTION) = mrOk then\r\n    begin\r\n      \/\/Dictionary&#x5B;key] := value; {Dictionary&#x5B;key] = Dictionary.Item&#x5B;key]}\r\n      Dictionary.AddOrSetValue(key, value);       {\u4e5f\u53ef\u4f7f\u7528\u4e0a\u4e00\u53e5}\r\n      Memo1.Lines.Values&#x5B;IntToStr(key)] := value; {\u540c\u6b65\u663e\u793a}\r\n    end;\r\nend;\r\n\r\nif k and v then\r\nbegin\r\n    str := Format('%d=%s \u5df2\u5b58\u5728, \u4e0d\u80fd\u91cd\u590d\u6dfb\u52a0', &#x5B;key, value]);\r\n    MessageBox(0, PChar(str), '\u9519\u8bef', MB_OK + MB_ICONHAND);\r\nend;\r\n\r\nText := IntToStr(Dictionary.Count);\r\nend;\r\n\r\n{\u5220\u9664: Remove}\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\nkey: Integer;\r\ni: Integer;\r\nbegin\r\nkey := StrToIntDef(Edit1.Text, 0);\r\n\r\nif not Dictionary.ContainsKey(key) then\r\nbegin\r\n    ShowMessageFmt('key: %d \u4e0d\u5b58\u5728', &#x5B;key]);\r\n    Exit;\r\nend;\r\n\r\nDictionary.Remove(key);\r\nText := IntToStr(Dictionary.Count);\r\n\r\n{\u540c\u6b65\u663e\u793a}\r\ni := Memo1.Lines.IndexOfName(IntToStr(key));\r\nif i &gt; -1 then Memo1.Lines.Delete(i);\r\nend;\r\n\r\n{\u5c1d\u8bd5\u53d6\u503c: TryGetValue}\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nvar\r\nkey: Integer;\r\nvalue: string;\r\nbegin\r\nkey := StrToIntDef(Edit1.Text, 0);\r\nif Dictionary.TryGetValue(key, value) then\r\n    ShowMessageFmt('key: %d \u5df2\u5b58\u5728, \u5176\u503c\u662f: %s', &#x5B;key, value])\r\nelse\r\n    ShowMessageFmt('key: %d \u4e0d\u5b58\u5728', &#x5B;key])\r\nend;\r\n\r\n{\u6e05\u7a7a: Clear}\r\nprocedure TForm1.Button4Click(Sender: TObject);\r\nbegin\r\nDictionary.Clear;\r\nText := IntToStr(Dictionary.Count);\r\nMemo1.Clear; {\u540c\u6b65\u663e\u793a}\r\nend;\r\n\r\nend.\r\n\r\n<\/pre>\n<p>\u81ea\u5b9a\u4e49\u6cdb\u578b\u5e94\u7528:(\u8f6c)<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\nDialogs, StdCtrls;\r\n\r\ntype\r\nTForm1 = class(TForm)\r\n    Memo1: TMemo;\r\n    Button1: TButton;\r\n    Button2: TButton;\r\n    Button3: TButton;\r\n    Button4: TButton;\r\n    Button5: 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\nend;\r\n\r\nvar\r\nForm1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\ntype\r\nTArr = array&#x5B;0..9] of T; {\u5b9a\u4e49\u4e00\u4e2a\u6cdb\u578b\u6570\u7ec4}\r\n{\u867d\u7136\u5927\u5bb6\u4e60\u60ef\u7528 T \u6765\u6cdb\u6307\u5176\u4ed6\u7c7b\u578b, \u4f46\u4f7f\u7528\u5176\u4ed6\u5408\u6cd5\u7684\u6807\u8bc6\u7b26\u4e5f\u662f\u53ef\u4ee5\u7684}\r\n\r\n{\u7528\u4f5c Integer}\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\nArr: TArr;\r\ni: Integer;\r\nbegin\r\nfor i := Low(Arr) to High(Arr) do\r\n    Arr&#x5B;i] := i * i;\r\n\r\nMemo1.Clear;\r\nfor i := Low(Arr) to High(Arr) do\r\n    Memo1.Lines.Add(Format('Arr&#x5B;%d] = %d', &#x5B;i, Arr&#x5B;i]]));\r\nend;\r\n\r\n{\u7528\u4f5c string}\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\nArr: TArr;\r\ni: Integer;\r\nbegin\r\nfor i := Low(Arr) to High(Arr) do\r\n    Arr&#x5B;i] := StringOfChar(Char(i+97), 3);\r\n\r\nMemo1.Clear;\r\nfor i := Low(Arr) to High(Arr) do\r\n    Memo1.Lines.Add(Format('Arr&#x5B;%d] = %s', &#x5B;i, Arr&#x5B;i]]));\r\nend;\r\n\r\n{\u7528\u4f5c Single}\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nvar\r\nArr: TArr;\r\ni: Integer;\r\nbegin\r\nfor i := Low(Arr) to High(Arr) do\r\n    Arr&#x5B;i] := 100 \/ (i+1);\r\n\r\nMemo1.Clear;\r\nfor i := Low(Arr) to High(Arr) do\r\n    Memo1.Lines.Add(Format('Arr&#x5B;%d] = %f', &#x5B;i, Arr&#x5B;i]]));\r\nend;\r\n\r\n{\u7528\u4f5c\u8bb0\u5f55 TPoint}\r\nprocedure TForm1.Button4Click(Sender: TObject);\r\nvar\r\nArr: TArr;\r\ni: Integer;\r\nbegin\r\nfor i := Low(Arr) to High(Arr) do\r\n    Arr&#x5B;i] := Point(i, i*2);\r\n\r\nMemo1.Clear;\r\nfor i := Low(Arr) to High(Arr) do\r\n    Memo1.Lines.Add(Format('Arr&#x5B;%d] = (%d,%d)', &#x5B;i, Arr&#x5B;i].X, Arr&#x5B;i].Y]));\r\nend;\r\n\r\n{\u7528\u4f5c\u7c7b TButton}\r\nprocedure TForm1.Button5Click(Sender: TObject);\r\nvar\r\nArr: TArr;\r\ni: Integer;\r\nbegin\r\nfor i := Low(Arr) to High(Arr) do\r\nbegin\r\n    Arr&#x5B;i] := TButton.Create(Self);\r\n    Arr&#x5B;i].Name := Concat('Btn', IntToStr(i+1));\r\nend;\r\n\r\nMemo1.Clear;\r\nfor i := Low(Arr) to High(Arr) do\r\n    Memo1.Lines.Add(Format('Arr&#x5B;%d] is %s', &#x5B;i, Arr&#x5B;i].Name]));\r\nend;\r\n\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>2010\u5df2\u53d1\u5e03\u5f88\u957f\u65f6\u95f4\u4e86\uff0c\u53e3\u7891\u8fd8\u4e0d\u9519\uff0c\u51c6\u5907\u7528\u5b83\u5f00\u53d1\u4e0b\u4e00\u9879\u76ee\uff0c\u4f46\u5bf9\u6cdb\u578b\u7b49\u65b0\u4e1c\u897f\u7684\u8ba4\u8bc6\u8fd8\u4e0d\u591f\uff0c\u5c31\u641c\u4e86\u4e00\u4e0b\uff0c\u53d1\u73b0\u4e0b\u9762 [&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-1197","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1197","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=1197"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1197\/revisions"}],"predecessor-version":[{"id":4697,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1197\/revisions\/4697"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=1197"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=1197"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=1197"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}