{"id":1390,"date":"2010-11-12T12:04:00","date_gmt":"2010-11-12T04:04:00","guid":{"rendered":""},"modified":"2013-11-17T16:28:41","modified_gmt":"2013-11-17T08:28:41","slug":"delphi%e4%b8%ad%e5%bb%ba%e8%ae%ae%e4%bd%bf%e7%94%a8%e7%9a%84%e8%af%ad%e5%8f%a5","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/1390.html","title":{"rendered":"Delphi\u4e2d\u5efa\u8bae\u4f7f\u7528\u7684\u8bed\u53e5"},"content":{"rendered":"<p>No.1 \u5229\u7528MaxInt\u5e38\u91cf<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbegin\r\n  Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); \/\/\u4e0d\u5efa\u8bae\r\n\/\/----\r\n  Caption := Copy(Edit1.Text, 3, MaxInt); \/\/\u5efa\u8bae\/\/\u563b\u563b\uff0c\u5c11\u8ba1\u7b97\u4e00\u6b21\r\nend;\r\n<\/pre>\n<p>No.2 \u4e34\u65f6SQL\u67e5\u8be2<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbegin\r\n  QueryTemp.Close;\r\n  QueryTemp.SQL.Text := 'Select SUM(\u91d1\u989d) AS \u5408\u8ba1 FROM \u9500\u552e\u8868';\r\n  QueryTemp.Open; \/\/\u4e0d\u5efa\u8bae\/\/\u6570\u636e\u6ca1\u6709\u5173\u95ed\u9020\u6210\u8d44\u6e90\u6d6a\u8d39\r\n  ShowMessage(Query1.FieldByName('\u5408\u8ba1').AsString);\r\n\/\/---\r\n  QueryTemp.SQL.Text := 'Select SUM(\u91d1\u989d) AS \u5408\u8ba1 FROM \u9500\u552e\u8868';\r\n  QueryTemp.Open;\r\n  ShowMessage(Query1.FieldByName('\u5408\u8ba1').AsString);\r\n  QueryTemp.Close; \/\/\u5efa\u8bae\u7528\/\/\u4f7f\u7528\u5b8c\u5c31\u5173\u95ed\r\nend;\r\n<\/pre>\n<p>No.3 \u83b7\u53d6\u8bb0\u5f55\u6570<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n  vRecordCount: Integer;\r\nbegin\r\n  Query1.SQL.Text := 'Select * FROM Table1'; \/\/\u4e0d\u5efa\u8bae\r\n\/\/\u4e25\u91cd\u6d6a\u8d39\u8d44\u6e90\uff0c\u4f1a\u53d6\u5f97\u5f88\u591a\u4e0d\u5fc5\u8981\u5f97\u4fe1\u606f\r\n Query1.Open;\r\n  vRecordCount := Query1.RecordCount;\r\n  Query1.Close;\r\n\/\/--\r\n  Query1.SQL.Text := 'Select COUNT(*) AS \u8bb0\u5f55\u6570 FROM Table1'; \/\/\u5efa\u8bae\r\n\/\/\u5feb\u901f\u6709\u6548\u3001\u53ea\u5904\u7406\u4e00\u6761\u8bb0\u5f55\r\n  Query1.Open;\r\n  vRecordCount := Query1.FieldByName('\u8bb0\u5f55\u6570').AsInteger;\r\n  Query1.Close;\r\n\r\n  ShowMessage(IntToStr(vRecordCount));\r\nend;\r\n<\/pre>\n<p>No.4 \u5b57\u6bb5\u8d4b\u503c<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbegin\r\n  Table1.Edit;\r\n  Table1.FieldByName('\u59d3\u540d').AsString := Edit1.Text; \/\/\u4e0d\u5efa\u8bae\r\n  Table1.FieldByName('\u65e5\u671f').AsDateTime := Date;\r\n\/\/---\r\n  Table1&#x5B;'\u59d3\u540d'] := Edit1.Text; \/\/\u5efa\u8bae\/\/\u7b80\u77ed\u3001\u6269\u5145\u6027\u597d\r\n  Table1&#x5B;'\u65e5\u671f'] := Date;\r\nend;\r\n<\/pre>\n<p>No.5 \u4f7f\u7528Self\u6307\u9488<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nbegin\r\n  Edit1.Parent := Form1; \/\/\u4e0d\u5efa\u8bae\/\/Form1\u53ea\u662f\u4e00\u4e2a\u53d8\u91cf\r\n\/\/\u5982\u679c\u6ca1\u6709\u5206\u914d\u8d44\u6e90\u600e\u4e48\u529e\uff1f\r\n\/\/---\r\n  Edit1.Parent := Self; \/\/\u5efa\u8bae\r\nend;\r\n<\/pre>\n<p>No.6 \u904d\u5386\u6570\u636e\u96c6<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n  I: Integer;\r\nbegin\r\n  Query1.First;\r\n  for I := 0 to Query1.RecordCount - 1 do begin \/\/\u4e0d\u5efa\u8bae\r\n\/\/\u5bb9\u6613\u88ab\u5f71\u54cd\r\n    Query1.Next;\r\n{};\r\n  end;\r\n\/\/---\r\n  Query1.First;\r\n  while not Query1.Eof do begin \/\/\u5efa\u8bae\r\n{ }\r\n    Query1.Next;\r\n  end;\r\nend;\r\n<\/pre>\n<p>No.7 \u5229\u7528Sender\u53c2\u6570\uff0c\u4f7f\u4ee3\u7801\u901a\u7528<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.Edit1Change(Sender: TObject);\r\n  begin\r\n    if Edit1.Text = '' then \/\/\u4e0d\u5efa\u8bae\r\n      Edit1.Color := clRed;\r\n\/\/---\r\n    if TEdit(Sender).Text = '' then \/\/\u5efa\u8bae\/\/\u590d\u5236\u5230EditXChange\u4e2d\u5f88\u65b9\u4fbf\r\n      TEdit(Sender).Color := clRed;\r\n  end;\r\n<\/pre>\n<p>No.8 \u4f7f\u7528\u9ed8\u8ba4\u8f6c\u6362\u51fd\u6570<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n  I: Integer;\r\nbegin\r\n  I := StrToInt(Edit1.Text); \/\/\u4e0d\u5efa\u8bae\r\n\/\/---\r\n  I := StrToIntDef(Edit1.Text, 0); \/\/\u5efa\u8bae\r\n\/\/\u53c2\u8003StrToFloatDef,StrToDateDef....\u4e0d\u8fc7\u8fd9\u4e9b\u53ea\u6709Delphi6\u624d\u6709\r\nend;\r\n<\/pre>\n<p>No.9 \u904d\u5386\u6570\u7ec4<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\n  I: Integer;\r\n  A: array&#x5B;0..9] of Integer;\r\nbegin\r\n  for I := 0 to 9 do \/\/\u4e0d\u5efa\u8bae\r\n    A&#x5B;I] := I;\r\n\/\/---\r\n  for I := Low(A) to High(A) do \/\/\u5efa\u8bae\/\/\u6269\u5145\u6027\u597d\r\n    A&#x5B;I] := I;\r\nend;\r\n<\/pre>\n<p>No.10 \u5224\u65ad\u903b\u8f91\u7c7b\u578b<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar B: Boolean;\r\nbegin\r\n  B := Boolean(2); \/\/\u8fd9\u6837\u53ea\u662f\u4e3a\u4e86\u8c03\u8bd5\/\/B := True;\r\n  if B = True then ShowMessage('B = True'); \/\/\u4e0d\u5efa\u8bae\/\/\u4e0d\u5b89\u5168\r\n\/\/---\r\n  if B then ShowMessage('B'); \/\/\u5efa\u8bae\/\/\u7b80\u77ed\r\nend;\r\n\r\nvar B: Boolean;\r\nbegin\r\n  if Edit1.Text = '\u662f' then \/\/\u4e0d\u5efa\u8bae\/\/\u70e6\u7410\r\n    B := True\r\n  else B := False;\r\n\/\/---\r\n  B := Edit1.Text = '\u662f'; \/\/\u5efa\u8bae\/\/\u7b80\u77ed\r\nend;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>No.1 \u5229\u7528MaxInt\u5e38\u91cf begin Caption := Copy(Edit1.Text, 3, Le [&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-1390","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1390","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=1390"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1390\/revisions"}],"predecessor-version":[{"id":4687,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/1390\/revisions\/4687"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=1390"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=1390"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=1390"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}