其他

SysUtils.EncodeDateTimeSysUtils.EncodeDateSysUtils.EncodeTimeDateUtils.EncodeDateDayDateUtils.EncodeDateMonthWeekDateUtils.EncodeDateTimeDateUtils.EncodeDateWeekDateUtils.EncodeDayOfWeekInMonthDateUtils.TryEncodeDateTimeDateUtils.TryEncodeDateDayDate

IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay ...

CharLowerBuff - 把緩衝區中指定數目的字元轉大寫unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　Button3: TButton;　　Button4:

CharLowerBuff - 把緩衝區中指定數目的字元轉小寫unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　Button3: TButton;　　Button4:

20.2.2.1 TWriter對象的屬性和方法      　      　　1. Position屬性      　　聲明：property Position: Longint;       TWriter對象的Position屬性工作表示相關聯的流中的當前要寫的位置，TReader  

20.1.5.2

本例效果圖:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs;type　TForm1 = class(TForm)　　procedure FormCreate(Sender: TObject);　　procedure MyMsg(var msg: TWMKeyDown); message

//用 Bitmap 顯示映像var　g: TGPGraphics;　bit: TGPBitmap;begin　g := TGPGraphics.Create(Canvas.Handle);　bit := TGPBitmap.Create('c:\temp\x.jpg');　g.DrawImage(bit, 11, 11); {預設大小竟然和 1:1 不一樣, 是不是解析度的問題?}　g.DrawImage(bit, 11, 11, bit.GetWidth, bit.GetHeight);　　

//擷取字型資訊var　fontFamily: TGPFontFamily;　font: TGPFont;begin　fontFamily := TGPFontFamily.Create('宋體');　font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel);　ShowMessage(FloatToStr(font.GetSize));　　　　　　　　　　　　　　

//畫曲線var　g: TGPGraphics;　p: TGPPen;　pts: array[0..4] of TGPPoint;begin　g := TGPGraphics.Create(Canvas.Handle);　p := TGPPen.Create(MakeColor(255,0,0),4);　pts[0].X := 11;　pts[0].Y := 11;　pts[1].X := 66;　pts[1].Y := 66;　pts[2].X := 88;　pts[2].Y := 222;　

//虛線樣式var　g: TGPGraphics;　p: TGPPen;begin　g := TGPGraphics.Create(Canvas.Handle);　p := TGPPen.Create(MakeColor(255,255,0,0),3);　g.DrawLine(p, 11, 11, 333, 11);　 {實線}　p.SetDashStyle(DashStyleDashDot); {設定虛線樣式}　g.DrawLine(p, 11, 33, 333, 33);　

首先建立服務端。如下圖所示建立工程：代碼如下：1.unit ServerUnit;2.3.interface4.5.uses6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7. Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, StdCtrls,8. IdSocketHandle, IdGlobal;9.10.

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;　　Button2:

TQueue 和 TStack, 一個是隊列列表, 一個是堆棧列表; 一個是先進先出, 一個是先進後出.TQueue 主要有三個方法、一個屬性:Enqueue(入列)、Dequeue(出列)、Peek(查看下一個要出列的元素);Count(元素總數).本例效果圖:代碼檔案:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs,

ToUpper、ToLower - 字元與字串的大小寫轉換代碼檔案:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　Button3: TButton;　　Button4:

本例效果圖:代碼檔案:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, ExtCtrls, StdCtrls, ComCtrls;type　TForm1 = class(TForm)　　CategoryPanelGroup1: TCategoryPanelGroup;　　CategoryPanel1:

本例效果圖:代碼檔案:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, ExtCtrls, StdCtrls, ColorGrd;type　TForm1 = class(TForm)　　CategoryPanelGroup1: TCategoryPanelGroup;　　CategoryPanel1:

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

unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　procedure Button1Click(Sender: TObject);　　procedure

unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls;type　TForm1 = class(TForm)　　Button1: TButton;　　Button2: TButton;　　Button3: TButton;　　Button4: TButton;　　Button5: