Delphi

Delphi

Delphi Rest Application 与 WebBroker Application 区别

20 0

Rest Application 与 WebBroker Application 区别: Rest Application使用的是DataSnap技术,标准的C/S访问方式,新的技术支持JOSN,可以跨平台,也能提供Web访问了; WebBroker Application,使用WebBroker一组VCL控件,它是通常的Web访问,可以使用HTML等方式访问。

Delphi

Delphi 几个日期操作

27 0

// ****************日期操作***********************function dateLeapYear(D: TDateTime): Boolean; // 判断闰年还是平年function WeekDay(const CuDate: TDateTime): string; // 得到汉文周几function getThisWeekBEDate: TDateArray;function getNextWeekBEDate: TDateArray;function getP

Delphi

Delphi 得到字符串拼音首字母

45 0

uses StrUtils;function GetCharSpellCode(cnStr: string): string;var buf: TBytes; i: Integer; icnStrCount: Int64; i1, i2: Integer; tmpStr: string[4];begin Result := ''; // TODO -cMM: TForm1.GetCharSpellCode default body inserted SetLength(b

Delphi

Delphi 获取单汉字拼音首字母

31 0

uses StrUtils;function GetCharSpellCode(cnStr: string): string;var buf: TBytes; i: Integer; icnStrCount: Int64; i1, i2: Integer; tmpStr: string[4];begin Result := ''; // TODO -cMM: TForm1.GetCharSpellCode default body inserted SetLength(b

Delphi

Delphi中QuotedStr介绍及使用

33 0

Delphi中QuotedStr介绍及使用给字符串两边加单引号并返回.声明:function QuotedStr(const S: string): string;用函数 QuotedStr把字符串S转换成为用引号括起来的字符串。单引号" ' " 将被插入到字符串s的最前和最后。例如:abc -> 'abc '

Delphi

Delphi DBNavigator控件的按钮显示成中文

43 0

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls; type TMyNavgator = class(TDBNavigator); TForm1 = class(TForm)

Delphi

Delphi 将文件转换成Base64编码

191 0

{************************************************************************** 名称: BaseImage 参数: fn: TFilename 返回值: string 功能: 将文件转换成Base64编码,返回值为编码 **************************************************************************}function BaseImage(fn:

Delphi

Delphi 取得文件版本

30 0

//取得文件版本function GetFileVer(strFileName: String): String;var n, Len: DWORD; Buf : PChar; Value: Pointer; szName: array [0..255] of Char; Transstring: String;begin Len := GetFileVersionInfoSize(PChar(strFileName), n); if Len > 0 th