热门标签： c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml

最新文章 : delphi

Delphi下POS机控制钱箱,客显,打印机,小票打印

1、控制POS机的客户显示屏
procedure TFrmMain.ShowMoney(Money_Port:   String;Money_String:String);
//Moneey_Port     顾显接口Com1   or   Com2     Money_String     顾显显示的内容
var
    PrnFileName:TextFile;
begin
    Assignfile(PrnFileName,Money_Port);
    printer.Canvas.Font.Name:='宋体';
    printer.Canvas.Font.Size:=8;
    printer.Canvas.Font.Charset:=GB2312_CHARSET;
    Rewrite(PrnFileName);
    write(PRNFileName,chr(12));         //清除顾显
    write(PRNFileName,chr(27)+chr(81)+chr(65)+Money_String+chR(13));       //显示信息
    CloseFile(PRNFileName);
end;
2、不换页走纸的打印
procedure TFrmMain.AddPrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
Assignf ......

delphi键盘按键伪码

Delphi键盘按键伪码
用法：if key = chr(VK_RETURN) then...
常数名称十六进制值十进制值对应按键
VK_LBUTTON 01 1 鼠标的左键
VK_RBUTTON 02 2 鼠标的右键
VK-CANCEL 03 3 Contol-break 执行
VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)
VK_BACK 08 8 Backspace键
VK_TAB 09 9 Tab键
VK_CLEAR 0C 12 Clear键
VK_RETURN 0D 13 Enter键
VK_SHIFT 10 16 Shift键
VK_CONTROL 11 17 Ctrl键
VK_MENU 12 18 Alt键
VK_PAUSE 13 19 Pause键
VK_CAPITAL 14 20 Caps Lock键
VK_ESCAPE 1B 27 Ese键
VK_SPACE 20 32 Spacebar键
VK_PRIOR 21 33 Page Up键
VK_NEXT 22 34 Page Domw键
VK_END 23 35 End键
VK_HOME 24 36 Home键
VK_LEFT 25 37 LEFT ARROW 键(←)
VK_UP 26 38 UP ARROW键(↑)
VK_RIGHT 27 39 RIGHT ARROW键(→)
VK_DOWN 28 40 DOWN ARROW键(↓)
VK_SELECT 29 41 SELECT键
VK_EXECUTE 2B 43 EXECUTE键
VK_SNAPSHOT 2C 44 Print Screen键
VK_INSERT 2D 45 Ins键
VK_DELETE 2E 46 Del键
VK_HELP 2F 47 Help键
VK_0 30 48 0键
VK_1 31 49 1键
VK_2 32 50 2键
VK_3 33 51 3键
VK_4 34 52 4键
VK_5 35 53 5键
VK_6 36 54 6� ......

Delphi源程序格式书写规范

1，规范简介
　　本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。
2，一般格式规范
2.1 缩进
　　缩进就是在当源程序的级改变时为增加可读性而露出的两个空格。缩进的规则为每一级缩进两个空格。不准许使用Tab。因为Tab会因为用户所作的设置不同而产生不同的效果。当遇到begin 或进入判断、循环、异常处理、with语句、记录类型声明、类声明等的时侯增加一级，当遇到end或退出判断、循环、异常处理、with语句、记录类型声明、类声明等的时侯减少一级。例如：
if TmpInt <> 100 then
TmpInt := 100;
2.2 Begin..End
　　begin语句和end语句在源程序中要独占一行，例如:
for I := 0 to 10 do begin //不正确的用法
end;
for I := 0 to 10 do //正确的用法
begin
end;
2.3 空格
　　在操作符及逻辑判断符号的两端添加空格，例如：I := I + 1;，a and b 等，但添加括号时不需要空格。例如：if ( a > b ) then //错误的用法
If (a > b) then //正确的用法
又例如：proced ......

Delphi调用Servlet

一直想让Delphi做为RIA，而业务层使用Java！今天没事做，简单实现了一下！
目前有2种方案：
WebService
IndyHttp调用Servlet
以下是用IndyHttp来调用Servlet
一、先写一个helloworld的Servlet
1.编写ui以及service
//工具包
package com.cdrs.jutils;
import java.io.IOException;
import java.util.Date;
import javax.servlet.ServletException;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
public abstract class FormObject extends HttpServlet {

protected static final String ACTION = "ACTION";
public FormObject() {
super();
}
/**
* Destruction of the servlet. <br>
*/
public void destroy() {
super.destroy(); // Just puts "destroy" string in log
// Put your code here
}

*/
public void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {

}

@SuppressWarnings("deprecation")
p ......

Delphi中DLL初始化和退出处理

<1>利用Unit的
Initalization与Finalization这两个小节
　　可以在Unit的这两个小节中安排Unit的进入和退出，但是
Program
与
Library并没有这两个部分，所以只能写在Unit中。
<2>利用ExitProc变量
　　在Library的begin
..end.中间是可以写代码
的，
这里可以放置
DLL初始化代码
。如果想要做善后工作，则可以利用ExitProc变量。
我们首先在初始化代码
中
把ExitProc中包含的默认的善后过程地址保
存下来，然后把自定义的过程的地址赋给它，这样DLL退出时就会执
行我们制定的程序；在
自定义的过程的最后，把ExitProc恢复原来的
默认值，以便DLL能够继续完成原来默认的善后工作。下面是示例：
　　library
MyDLL;
　　...
　　OldExitProc: pointer;
　　...
　　procedure
MyExitProc;
　　begin
　　... //善后程序
　　ExitProc :=
OldExitProc;
　　end;
　　...
　　begin
　　... //初始化程序
　
　OldExitProc := ExitProc;
　　ExitProc := @MyExitProc;
　　end.
<3>利用DllProc变量
　　和ExitProc一样，DllProc也是一个在Systemd单元中预定义的变
量。
在使用DLLProc时, 必须先写好一个具有以 ......

VC Delphi 数据类型

Delphi 数据类型列表
分类
范围
字节
备注
简单类型
序数
整数
Integer
-2147483648 .. 2147483647
4
有符号32位
Cardinal
0 .. 4294967295
4
无符号32位
Shortint
-128 .. 127
1
有符号8位
Smallint
-32768 .. 32767
2
有符号16位
Longint
-2147483648 .. 2147483647
4
有符号32位
Int64
-263 .. 263
8
有符号64位
Byte
0 .. 255
1
无符号8位
Word
0 .. 65535
2
无符号16位
Longword
0 .. 4294967295
4
无符号32位
字符
AnsiChar(Char)
ANSI字符集

8位
WideChar
Unicode字符集

16位
布尔
Boolean
False < True
Ord(False) = 0
Ord(True) = 1
Succ(False) = True
Pred(True) = False
1

ByteBool
False <> True
Ord(False) = 0
Ord(True) <> 0
Succ(False) = True
Pred(False) = True
1

WordBool
2

LongBool
4

枚举

子界

实数
　
Real
5.0×10-324 .. 1.7×10308
8
[精度]15..16
Real48
2.9×10-39 .. 1.7×1038
6
[精度]11..12; ......

总记录数:644; 总页数:108; 每页6 条; 首页上一页 [34] [35] [36] [37] 38 [39] [40] [41] [42] [43] 下一页尾页