Delphi

Delphi

Delphi 解析JSON生成JSON

108 0

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

Delphi的TTreeView类使用大全
Delphi

Delphi的TTreeView类使用大全

118 0

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

Delphi中TListView控件使用
Delphi

Delphi中TListView控件使用

223 0

要点: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

Delphi

delphi 加载图像并压缩,旋转图像角度

30 0

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

Delphi

Delphi 文件转换Base64

85 0

uses EncdDecd;function FileToBase64(FileName: string): string;var MemoryStream: TMemoryStream;begin Result := ''; MemoryStream := TMemoryStream.Create; try MemoryStream.LoadFromFile(FileName); Result := EncodeBase64(MemoryStream.Memory,

Delphi

Delphi 时间耗时统计

32 0

处理事情: 数据处理过程中,速度很慢,无法准确定位分析是DB问题还是客户端处理问题,所以增加计时统计日志; Delphi计时首次使用,查阅资料,予以记录:var BgPoint, EdPoind: int64; OffSet: int64;begin BgPoint := GetTickCount; //>> 逻辑处理语句。。。。。。 EdPoind := GetTickCount; OffSet := EdPoind - BgPoint; //耗时(ms)end;//>>