[DCC Error] SPCOMM.PAS(1195): E2010 Incompatible types: ‘Array’ and ‘PAnsiChar’
Delphi中有PChar、PWideChar、 PAnsiChar三种形式。
在 Delphi2010 之前，默认PChar是PAnsiChar，之后默认都是 PWideChar。
如果你当前版本报错，就要具体指定是PAnsiChar或者是PWideChar。
关于CTS项目的Delphi+ActiveMQ
1、Delphi 2010、Habari_ActiveMQ_Client-2.1。
2、消息发送至cts.queue队列。
program SendMessage;
{$APPTYPE CONSOLE}
uses
SysUtils,
BTCommAdapterIndy,
BTJMSInterfaces,
BTJMSConnection;
var
Conn: IConnection;
Session: ISession;
Producer: IMes
Delphi 农行闪付接口
unit TestFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils;
type
TfrmTest = class(TForm)
btnTest: TButton;
memLine: TMemo;
procedure btnTestClick(Sender: TObje
关于Delphi通过https访问支付宝接口
1、将libeay32.dll、ssleay32.dll拷贝至exe目录下。
2、uses IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL,
IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient,
IdTCPClient, IdHTTP;
3、编写函数fucHttpAlipay。
//————————————
POS连锁收银系统
从零开始，一个人从研究业务、设计系统架构、编写概要设计/详细设计等相关文档，像蚂蚁搬家一样，一点一滴的逐步完成各个子系的Demo。基本功能完成之后，又加入了1位伙伴，两个人历时1年，完成系统所有功能的研发/测试，顺利完成系统的上线。
一、主要功能
1、支持触摸屏（双屏），纯触摸操作。
2、图形化界面，美观简洁，操作方便，易学易用。
3、产品分类、产品信息由总部统一建立、统一维护、指定产品的销售区域、门店，所有数据由总部统一下发。
4、灵活的营销方案，允许指定日期优惠、满多少送
Delphi得到执行程序的当前所在完整路径
// 测试
procedure TfrmMain.btnExeClick(Sender: TObject);
begin
try
mmLine.Lines.Add(ExtractFileDir(Application.Exename)); //返回值为 c:\cts
mmLine.Lines.Add(ExtractFilePath(Application.Exename)); //返回值为 c:\cts\
finally
end;
end;
Delphi代码动态创建控件与事件动态绑定
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmMain = class(TForm)
btnTest: TButton;
mmLine: TMemo;
btnList: TButton;
btnCreate: TButton;
proce
Delphi TStringList的用法
// 测试
procedure TfrmMain.btnListClick(Sender: TObject);
var
list: TStringList;
i: Integer;
begin
try
list:= TStringList.Create;
list.Add(‘9001’);
list.Add(‘jzh’);
list.Add(‘159’);
for i := 0 to list.Count – 1 do
begin
mmLine
Delphi结构体的定义和使用
var
frmMain: TfrmMain;
type
TUser = record
usercode: string;
username: string;
usertel: string;
end;
implementation
{$R *.dfm}
// 测试
procedure TfrmMain.btnTestClick(Sender: TObject);
var
user: TUser;
begin
try
user.use
Delphi快捷键
Delphi常用快捷键
分类
快捷键
解释
组件设计类
Esc
选择当前组件容器
Shift + Click
选择多个组件；选择窗体
Tab
选择下一个组件
Shift + Tab
选择上一个组件
方向键
选择此方向的下一个组件
Ctrl + 方向键
将所选组件的位置移动 1 个像素
Shift + 方向键
将所选组件的大小改变 1 个像素
Ctrl
Delphi字符截取函数LeftStr/MidStr/RightStr使用
uses StrUtils
// 测试
procedure TfrmMain.btnStrClick(Sender: TObject);
var
info: string;
begin
try
info:= ‘delphi is a rap’;
mmLine.Lines.Add(LeftStr(info, 5)); //从左往右截取，长度是5
mmLine.Lines.Add(MidStr(info, 5, 2)); //从第5个字符开始截取，长度是2
m
Delphi FormatDateTime日期时间的用法
// 测试
procedure TfrmMain.btnDateClick(Sender: TObject);
var
logDate: string;
begin
try
logDate:= FormatDateTime(‘yyyy-mm-dd hh:nn:ss’, now);
mmLine.Lines.Add(logDate);
finally
end;
end;
Delphi基础语法
procedure TfrmMain.btnTestClick(Sender: TObject);
var
name: String;
age: Integer;
i : Integer;
begin
try
name := ‘jzh’;
age := 22;
mmLine.Text := name + IntToStr(age);
for i := 0 to 5 do
begin
mmLine.Lines.Add(IntToStr(i));