2015年6月 – QDAC数据访问组件网站

获取当前机器上首个未使用的 TCP 端口

2015-06-302018-06-23 • Delphi、杂谈 • 暂无评论 • swish •浏览 2,398 次

这个函数用于获取计算机上首个未使用的 TCP 端口以便程序使用。有时候我们并不需要一个固定的端口来提供服务，通过这个函数，我们就可以找到一个可用的端口了。这个函数如果返回 0 ，则没有任何可用的端口（几率几乎为 0 吧？），同样的方法也可以用于获取可用的 UDP 端口，换个函数而已。 [crayon-61ef3e121

QPlugins – 基本的原型演示程序已经出来了，欢迎大家测试并提供建议

2015-06-282015-06-29 • Delphi、QPlugin、杂谈 • 4 条评论 • swish •浏览 4,883 次

昨天到今天，我根据自己的想法，将 QPlugins 插件引擎的框架给搭了下。欢迎有兴趣的朋友加入讨论和参考。首先，QPlugins 插件框架是一个可替换的框架，所有的一切都可以被替换（All can replace），包括插件管理器自身。当然了，替换插件管理器这个有几个方法，直接实现一个新的 IQPluginsMan

QWorker 更新 – TQPlanMask 新增 OnAcceptTime 事件以支持用户自定义的计划任务等更新

2015-06-242015-06-24 • C++ Builder、Delphi、QDAC、QWorker、更新 • 暂无评论 • swish •浏览 2,053 次

【更新说明】 TQPlanMask新增了三个成员： OnAcceptTime：用于让用户自行确定某个时间点是否应该执行计划任务作业； StartTime：用于确定计划任务作业的起始生效时间 StopTime：用于确定计划任务作业的结束时间注意，如果设置了StartTime 和 StopTime，则必需保证 Start

[QDB] FireDAC -> QDB 的流转换器正在开发中，目前已经能读取数据

2015-06-232015-06-23 • C++ Builder、Delphi、QDAC、QDB、杂谈 • 暂无评论 • swish •浏览 1,813 次

虽然不完善，但是一个好的开始。这个是直接从 FireDAC 的二进制格式解析生成的数据，不需要 FireDAC 相关的单元，通过 TQFDConverter 直接解析文件数据来完成。这样大家在设计手机端程序时，就可以直接用 QDataSet 代替 FireDAC 的相关组件。要将 FireDAC 的数据

一个 HTTP URL 解析和编码的辅助实现

2015-06-20 • C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 3,690 次

首先，一个 HTTP 的 URL 有下面几个部分组成：协议类型。是 HTTP 还是 HTTPS 协议，分别对应于 http:// 和 https://；用户名和密码。这个位于协议类型的后面，用户名和密码之间采用 “:” 进行分隔，跟主机的域名或IP部分用 ‘@’ 符号进行分隔；域名或IP地

【Delphi】玩转浮点数转整数

2015-06-192015-06-23 • Delphi • 2 条评论 • 爱音乐的孩子是小白 •浏览 6,842 次

Delphi中提供了三个函数: Trunc: 将浮点数的整数部分返回。 Round: 将浮点数四舍五入后返回整数部分。 Int: 将浮点数的小数部分去掉，返回只保留了整数部分的Extended型。在D2007 + Win7 + Intel平台下测试，由于Int返回的并非整型，我们把它排除掉。测试结果是 Round

[VCL]控件对齐方式增强函数

2015-06-17 • C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 1,757 次

VCL 的 TAlign 的功能比较弱，有时候，无法满足我们对齐的需要，所以这里提供了一个额外的 CustomAlign 函数来实现更多的对齐方式。当然，如果你是用 FMX 的话，这些对齐方式已经有了，你可以忽略这篇文章。

type
  TCustomAlign = (caNone, caTop, caLeft, caRight, caBottom, caClient, caCenter,
    caVertCenter, caHorzCenter, caHorizontal, caVertical);
procedure CustomAlign(ACtrl: TControl; ALayout: TCustomAlign);

implementation

procedure CustomAlign(ACtrl: TControl; ALayout: TCustomAlign);
var
  R: TRect;
begin
  if ALayout <> caNone then
  begin
    if ACtrl is TCustomForm then
      R := (ACtrl as TCustomForm).Monitor.BoundsRect
    else
      R := ACtrl.Parent.ClientRect;
    ACtrl.Align:=alNone;
    case ALayout of
      caTop:
        ACtrl.SetBounds(R.Left, R.Top, R.Width, ACtrl.Height);
      caLeft:
        ACtrl.SetBounds(R.Left, R.Top, ACtrl.Width, R.Height);
      caRight:
        ACtrl.SetBounds(R.Right - ACtrl.Width, R.Top, ACtrl.Width, R.Height);
      caBottom:
        ACtrl.SetBounds(R.Left, R.Bottom - ACtrl.Height, R.Width, ACtrl.Height);
      caClient:
        ACtrl.SetBounds(R.Left, R.Top, R.Width, R.Height);
      caCenter:
        ACtrl.SetBounds(R.Left + (R.Width - ACtrl.Width) div 2,
          R.Top + (R.Height - ACtrl.Height) div 2, ACtrl.Width, ACtrl.Height);
      caVertCenter:
        ACtrl.SetBounds(ACtrl.Left, R.Top + (R.Height - ACtrl.Height) div 2,
          ACtrl.Width, ACtrl.Height);
      caHorzCenter:
        ACtrl.SetBounds(ACtrl.Left + (R.Width - ACtrl.Width) div 2, ACtrl.Top,
          ACtrl.Width, ACtrl.Height);
      caHorizontal:
        ACtrl.SetBounds(R.Left, ACtrl.Top, R.Width, ACtrl.Height);
      caVertical:
        ACtrl.SetBounds(ACtrl.Left, R.Top, ACtrl.Width, R.Height);
    end;
  end;
end;

type

TCustomAlign = (caNone, caTop, caLeft, caRight, caBottom, caClient, caCenter,

caVertCenter, caHorzCenter, caHorizontal, caVertical);

procedure CustomAlign(ACtrl: TControl; ALayout: TCustomAlign);

implementation

procedure CustomAlign(ACtrl: TControl; ALayout: TCustomAlign);

var

R: TRect;

begin

if ALayout <> caNone then

begin

if ACtrl is TCustomForm then

R := (ACtrl as TCustomForm).Monitor.BoundsRect

else

R := ACtrl.Parent.ClientRect;

ACtrl.Align:=alNone;

case ALayout of

caTop:

ACtrl.SetBounds(R.Left, R.Top, R.Width, ACtrl.Height);

caLeft:

ACtrl.SetBounds(R.Left, R.Top, ACtrl.Width, R.Height);

caRight:

ACtrl.SetBounds(R.Right - ACtrl.Width, R.Top, ACtrl.Width, R.Height);

caBottom:

ACtrl.SetBounds(R.Left, R.Bottom - ACtrl.Height, R.Width, ACtrl.Height);

caClient:

ACtrl.SetBounds(R.Left, R.Top, R.Width, R.Height);

caCenter:

ACtrl.SetBounds(R.Left + (R.Width - ACtrl.Width) div 2,

R.Top + (R.Height - ACtrl.Height) div 2, ACtrl.Width, ACtrl.Height);

caVertCenter:

ACtrl.SetBounds(ACtrl.Left, R.Top + (R.Height - ACtrl.Height) div 2,

ACtrl.Width, ACtrl.Height);

caHorzCenter:

ACtrl.SetBounds(ACtrl.Left + (R.Width - ACtrl.Width) div 2, ACtrl.Top,

ACtrl.Width, ACtrl.Height);

caHorizontal:

ACtrl.SetBounds(R.Left, ACtrl.Top, R.Width, ACtrl.Height);

caVertical:

ACtrl.SetBounds(ACtrl.Left, R.Top, ACtrl.Width, R.Height);

end;

当然，如果想要达到FMX的对齐

QWorker 更新 – 修正了 TQJobGroup.Cancel 的一处Bug

2015-06-162015-06-16 • C++ Builder、Delphi、QDAC、QWorker、更新 • 暂无评论 • swish •浏览 1,595 次

【错误描述】 TQJobGroup.Cancel 调用了 TQSimpleJobs.Clear 来清除与自身相关的所有作业，而 TQSimpleJobs.Clear 时，只检查了作业的关联作业函数所隶属的对象，没有检查对应的分组，从而引发此问题。【更新描述】 1、修正了前述错误； 2、修改了 TQJobGroup.C

[XE8 Bug]-粘贴带有||内容的数据时IDE死掉

2015-06-10 • Delphi、杂谈 • 2 条评论 • swish •浏览 2,514 次

创建一个新的 Delphi 工具，然后粘贴类似下面包含 || 的文字： abc||def 结果IDE就会死掉，问题出在新增的Castalia，将注册表： HKEY_CURRENT_USER\Software\Embarcadero\BDS\16.0\Known IDE Packages\Delphi 下对应的项目删除就

【Delphi】GMT时间与TDateTime转换

2015-06-09 • Delphi • 暂无评论 • 爱音乐的孩子是小白 •浏览 7,771 次

说到GMT时间，人们天天都在用，但一般人不会被注意到。在Http的世界里面，GMT无处不在，不信你抓包看看各种Header里面。 GMT是世界时间，在处理的时候需要处理当前的时区。算了，我懒得多说，直接贴代码吧。吹吹牛，我这个可以高性能的哦~~~~

const
  Convert: array[0..255] of Integer =
    (
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
      0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
     );

function PCharToIntDef(const S: PAnsichar; Len: Integer; def: Integer = 0): Integer;
var
  I: Integer;
  v: Integer;
begin
  Result := 0;
  for I := 0 to len-1 do begin
    V := Convert[ord(s[i])];
    if V<0 then begin
      Result := def;
      Exit;
    end;
    result := (result * 10) + V;
  end;
end;

function LocalTimeZoneBias: Integer;
{$IFDEF LINUX}
var
  TV: TTimeval;
  TZ: TTimezone;
begin
  gettimeofday(TV, TZ);
  Result := TZ.tz_minuteswest;
end;
{$ELSE}
var
  TimeZoneInformation: TTimeZoneInformation;
  Bias: Longint;
begin
  case GetTimeZoneInformation(TimeZoneInformation) of
    TIME_ZONE_ID_STANDARD: Bias := TimeZoneInformation.Bias + TimeZoneInformation.StandardBias;
    TIME_ZONE_ID_DAYLIGHT: Bias := TimeZoneInformation.Bias + ((TimeZoneInformation.DaylightBias div 60) * -100);
  else
    Bias := TimeZoneInformation.Bias;
  end;
  Result := Bias;
end;
{$ENDIF}

var
  DLocalTimeZoneBias: Double = 0;

function DateTimeToGMT(const DT: TDateTime): TDateTime; inline;
begin
  Result := DT + DLocalTimeZoneBias;
end;

function GMTToDateTime(const DT: TDateTime): TDateTime; inline;
begin
  Result := DT - DLocalTimeZoneBias;
end;

function DateTimeToGMTRFC822(const DateTime: TDateTime): string;
const
  WEEK: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
  STR_ENGLISH_M: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May',
    'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var
  wWeek, wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec: Word;
begin
  DecodeDateTime(DateTimeToGMT(DateTime), wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec);
  wWeek := DayOfWeek(DateTimeToGMT(DateTime));
  Result := Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT',
    [WEEK[wWeek], wDay, STR_ENGLISH_M[wMonth], wYear, wHour, wMin, wSec]);
end;

function GMTRFC822ToDateTime(const pSour: AnsiString): TDateTime;

  function GetMonthDig(const Value: PAnsiChar): Integer;
  const
    STR_ENGLISH_M: array[1..12] of PAnsiChar = ('Jan', 'Feb', 'Mar', 'Apr', 'May',
      'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
  begin
    for Result := Low(STR_ENGLISH_M) to High(STR_ENGLISH_M) do begin
      if StrLIComp(Value, STR_ENGLISH_M[Result], 3) = 0 then
        Exit;
    end;
    Result := 0;
  end;
var
  P1, P2, PMax: PAnsiChar;
  wDay, wMonth, wYear, wHour, wMinute, wSec: SmallInt;
begin
  Result := 0;
  if Length(pSour) < 25 then Exit;
  P1 := Pointer(pSour);
  P2 := P1;
  PMax := P1 + Length(pSour);
  while (P1 < PMax) and (P1^ <> ',') do Inc(P1); Inc(P1);
  if (P1^ <> #32) and (P1 - P2 < 4) then Exit;
  Inc(P1); P2 := P1;
  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wDay := PCharToIntDef(P2, P1 - P2);
  if wDay = 0 then Exit;  
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) and (P1 - P2 < 3) then Exit;
  wMonth := GetMonthDig(P2);
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wYear := PCharToIntDef(P2, P1 - P2);
  if wYear = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> ':') do Inc(P1);
  if (P1^ <> ':') then Exit;
  wHour := PCharToIntDef(P2, P1 - P2);
  if wHour = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> ':') do Inc(P1);
  if (P1^ <> ':') then Exit;
  wMinute := PCharToIntDef(P2, P1 - P2);
  if wMinute = 0 then Exit;
  Inc(P1); P2 := P1;

  while (P1 < PMax) and (P1^ <> #32) do Inc(P1);
  if (P1^ <> #32) then Exit;
  wSec := PCharToIntDef(P2, P1 - P2);
  if wSec = 0 then Exit;

  Result := GMTToDateTime(EnCodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSec, 0));
end;

initialization
  DLocalTimeZoneBias := LocalTimeZoneBias / 1440;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

const

Convert: array[0..255] of Integer =

(

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,

-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,

-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1

);

function PCharToIntDef(const S: PAnsichar; Len: Integer; def: Integer = 0): Integer;

var

I: Integer;

v: Integer;

begin

Result := 0;

for I := 0 to len-1 do begin

V := Convert[ord(s[i])];

if V<0 then begin

Result := def;

Exit;

end;

result := (result * 10) + V;

end;

function LocalTimeZoneBias: Integer;

{$IFDEF LINUX}

var

TV: TTimeval;

TZ: TTimezone;

begin

gettimeofday(TV, TZ);

Result := TZ.tz_minuteswest;

end;

{$ELSE}

var

TimeZoneInformation: TTimeZoneInformation;

Bias: Longint;

begin

case GetTimeZoneInformation(TimeZoneInformation) of

TIME_ZONE_ID_STANDARD: Bias := TimeZoneInformation.Bias + TimeZoneInformation.StandardBias;

TIME_ZONE_ID_DAYLIGHT: Bias := TimeZoneInformation.Bias + ((TimeZoneInformation.DaylightBias div 60) * -100);

else

Bias := TimeZoneInformation.Bias;

end;

Result := Bias;

end;

{$ENDIF}

var

DLocalTimeZoneBias: Double = 0;

function DateTimeToGMT(const DT: TDateTime): TDateTime; inline;

begin

Result := DT + DLocalTimeZoneBias;

end;

function GMTToDateTime(const DT: TDateTime): TDateTime; inline;

begin

Result := DT - DLocalTimeZoneBias;

end;

function DateTimeToGMTRFC822(const DateTime: TDateTime): string;

const

WEEK: array[1..7] of string = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');

STR_ENGLISH_M: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May',

'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

var

wWeek, wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec: Word;

begin

DecodeDateTime(DateTimeToGMT(DateTime), wYear, wMonth, wDay, wHour, wMin, wSec, wMilliSec);

wWeek := DayOfWeek(DateTimeToGMT(DateTime));

Result := Format('%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT',

[WEEK[wWeek], wDay, STR_ENGLISH_M[wMonth], wYear, wHour, wMin, wSec]);

end;

function GMTRFC822ToDateTime(const pSour: AnsiString): TDateTime;

function GetMonthDig(const Value: PAnsiChar): Integer;

const

STR_ENGLISH_M: array[1..12] of PAnsiChar = ('Jan', 'Feb', 'Mar', 'Apr', 'May',

'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');

begin

for Result := Low(STR_ENGLISH_M) to High(STR_ENGLISH_M) do begin

if StrLIComp(Value, STR_ENGLISH_M[Result], 3) = 0 then

Exit;

end;

Result := 0;

end;

var

P1, P2, PMax: PAnsiChar;

wDay, wMonth, wYear, wHour, wMinute, wSec: SmallInt;

begin

Result := 0;

if Length(pSour) < 25 then Exit;

P1 := Pointer(pSour);

P2 := P1;

PMax := P1 + Length(pSour);

while (P1 < PMax) and (P1^ <> ',') do Inc(P1); Inc(P1);

if (P1^ <> #32) and (P1 - P2 < 4) then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wDay := PCharToIntDef(P2, P1 - P2);

if wDay = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) and (P1 - P2 < 3) then Exit;

wMonth := GetMonthDig(P2);

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wYear := PCharToIntDef(P2, P1 - P2);

if wYear = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> ':') do Inc(P1);

if (P1^ <> ':') then Exit;

wHour := PCharToIntDef(P2, P1 - P2);

if wHour = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> ':') do Inc(P1);

if (P1^ <> ':') then Exit;

wMinute := PCharToIntDef(P2, P1 - P2);

if wMinute = 0 then Exit;

Inc(P1); P2 := P1;

while (P1 < PMax) and (P1^ <> #32) do Inc(P1);

if (P1^ <> #32) then Exit;

wSec := PCharToIntDef(P2, P1 - P2);

if wSec = 0 then Exit;

Result := GMTToDateTime(EnCodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSec, 0));

end;

initialization

DLocalTimeZoneBias := LocalTimeZoneBias / 1440;

将一个浮点数转换为不小于或不大于该值的最小或最大整数

2015-06-092015-06-09 • C++ Builder、Delphi、杂谈 • 暂无评论 • swish •浏览 2,106 次

function RoundX(v: Double): Double;
var
  APower: Integer;
  ANeg: Boolean;
begin
  if IsZero(v) then
    Result := 0
  else
  begin
    APower := 0;
    ANeg := v < 0;
    if ANeg then
      v := -v;
    while v < 1 do
    begin
      v := v * 10;
      Dec(APower);
    end;
    while v > 10 do
    begin
      v := v / 10;
      Inc(APower);
    end;
    if not IsZero(v - Trunc(v)) then
      Result := (Trunc(v) + 1) * power(10, APower)
    else
      Result := Trunc(v) * power(10, APower);
    if ANeg then
      Result := -Result;
  end;
end;

function RoundX(v: Double): Double;

var

APower: Integer;

ANeg: Boolean;

begin

if IsZero(v) then

Result := 0

else

begin

APower := 0;

ANeg := v < 0;

if ANeg then

v := -v;

while v < 1 do

begin

v := v * 10;

Dec(APower);

end;

while v > 10 do

begin

v := v / 10;

Inc(APower);

end;

if not IsZero(v - Trunc(v)) then

Result := (Trunc(v) + 1) * power(10, APower)

else

Result := Trunc(v) * power(10, APower);

if ANeg then

Result := -Result;

end;

RoundX(1.5) = 2 RoundX(123) = 200 RoundX(-1.5) = -2 RoundX(-123)=-200

月度归档： 2015年6月

获取当前机器上首个未使用的 TCP 端口

QPlugins – 基本的原型演示程序已经出来了，欢迎大家测试并提供建议

QWorker 更新 – TQPlanMask 新增 OnAcceptTime 事件以支持用户自定义的计划任务等更新

[QDB] FireDAC -> QDB 的流转换器正在开发中，目前已经能读取数据

一个 HTTP URL 解析和编码的辅助实现

【Delphi】玩转浮点数转整数

[VCL]控件对齐方式增强函数

QWorker 更新 – 修正了 TQJobGroup.Cancel 的一处Bug

[XE8 Bug]-粘贴带有||内容的数据时IDE死掉

【Delphi】GMT时间与TDateTime转换

将一个浮点数转换为不小于或不大于该值的最小或最大整数

[GLScene] – 将屏幕坐标转换为三维世界坐标

[MyBean-插件]MyBean通用报表免费无限制版本发布

【原创分享】LookImage 图像查看器

不完美-FMX 程序中避免输入焦点被虚拟键盘遮挡

登录