Delphi
108
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.StdCtrls;type TForm1 = cl
118
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids; type TForm1 = class(TForm) tv1: TTreeView; Button1: TButton; Button2: TButton; tv2: TTreeView; But
223
要点:1.代码备注的超级详细,如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) lv1: TListView; Button1: TButton; Button2: TButton; Button3: TButt
78
ImageList1属性如下设置:DrawingStyle: dsTransparentColorDepth: cd32Bit
30
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Imaging.jpeg, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ExtDlgs, Vcl.StdCtrls, Vcl.Buttons;type TForm1 = clas
66
function IsHexDigit(C: Char): Boolean;begin Result := CharInSet(C, ['A'..'F', 'a'..'f', '0'..'9']);end;
85
uses EncdDecd;function FileToBase64(FileName: string): string;var MemoryStream: TMemoryStream;begin Result := ''; MemoryStream := TMemoryStream.Create; try MemoryStream.LoadFromFile(FileName); Result := EncodeBase64(MemoryStream.Memory,
32
处理事情: 数据处理过程中,速度很慢,无法准确定位分析是DB问题还是客户端处理问题,所以增加计时统计日志; Delphi计时首次使用,查阅资料,予以记录:var BgPoint, EdPoind: int64; OffSet: int64;begin BgPoint := GetTickCount; //>> 逻辑处理语句。。。。。。 EdPoind := GetTickCount; OffSet := EdPoind - BgPoint; //耗时(ms)end;//>>