DECLARE
TYPE TY_QUECUR IS REF CURSOR;
CUR_COLUMNS TY_QUECUR;
SQLCMD VARCHAR(500);
TABNAME VARCHAR(20);
COLNAME VARCHAR(50);
COLTYPE VARCHAR(20);
COLCOMMENT VARCHAR2(50);
COLLENGTH INTEGER;
COLPRECISION INTEGER;
I INTEGER;
COLLIST VARCHAR(1000);
VCOLLIST VARCHAR(1000);
DelphiDS VARCHAR2(20);
BEGIN
TABNAME:= 'DIC_USER';
DelphiDS:= '__DS';
I:= 0;
COLLIST:= '';
VCOLLIST:= '';
SQLCMD:= 'SELECT A.COLUMN_NAME, A.DATA_TYPE,B.COMMENTS,A.DATA_LENGTH,A.DATA_PRECISION '
||'from USER_TAB_COLUMNS A LEFT JOIN USER_COL_COMMENTS B '
||'ON A.COLUMN_NAME=B.COLUMN_NAME AND A.TABLE_NAME=B.TABLE_NAME WHERE A.TABLE_NAME= '''|| TABNAME || '''';
DBMS_OUTPUT.PUT_LINE('//==============================================================');
......
获得网卡的MAC地址在很多地方都有很大的用处,下面的函数以XX-XX-XX-XX-XX-XX 的格式返回远程或本地机器的MAC地址。
Function to return the MAC address of a remote or local machine in the format XX-XX-XX-XX-XX-XX
返回的MAC地址是一个能用在多个方面的唯一标识。使用方法：
ShowMessage(GetMacAddress(\\MHEYDON);
输出00-02-08-E7-99-6B
// ======================================================================
//返回值是主机AServerName的MAC地址
//AServerName参数的格式为\\ServerName 或者 ServerName
//参数ServerName为空时返回本机的MAC地址
//MAC地址以XX-XX-XX-XX-XX-XX的格式返回
// ======================================================================
function GetMacAddress(const AServerName : string) : string;
type
TNetTransportEnum = function(pszServer : PWideChar;
&n ......
什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据
的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，
程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不
但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对
流的操作非常熟练，在程序中利用流的方便性，写起程序会大大提高效率的。
下面，笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕
传输来说明Delphi编程中“流”的利用。这些例子中的一些技巧曾经是很多软
件的秘密而不公开的，现在大家可以无偿的直接引用其中的代码了。
“万丈高楼平地起”，在分析实例之前，我们先来了解一下流的基本概念和
函数，只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会
这些基本方法。当然，如果你对它们已经很熟悉了，则可以跳过这一步。
一、Delphi中流的基本概念及函数声明
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性
和方法。
TStream类中定义的属性介绍如下：
1、Size:此属性以字节返回流中数据大小。
2、Position:此属性控制流中存取指针的位� ......
@符号返回一个变量的地址
例：
var
f:string;
p:^string; //声明一个字符串类型的指针
begin
f ='demo';
p = @f;
showmessage(p^);//显示结果为‘demo’
end;
^符号在delphi中代表指针的意思.
$是编译指令，具体用法见下文．
Delphi编译指令说明
Delphi快速高效的编译器主要来自Object PASCAL的严谨，使用Delphi随时都在与编译器交流，大部分情况下不需要干涉编译器的运行，但是有时也需要对编译器进行必要的设置。
A.1 使用编译设置对话框
编译器的编译指令是用于指定编译器对项目编译过程的动作和行为。可以通过[Project]->[Options]->[Complier]选项页进行设置，绝大部分的编译环境都可以通过这一对话框进行调整，他包含了对代码、语法、调试信息等的设置。
1.代码设置(Code Generation ......
格式：操作数 Shl/Shr 移动位数
说明：操作数与返回值都是整数
例子：16(10) = 10000(2)
16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)
16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)
说明：一个整数(I)按位左移一位，相当于把它乘以2，即 I * 2
一个整数(I)按位右移一位，相当于把它除以2，即 I Div 2
一个整数(I)按位左移2 位，相当于把它乘以2再乘2，即 (I * 2) * 2
一个整数(I)按位右移2 位，相当于把它除以2再除2，即 (I Div 2) Div 2
分析：引用我们最常用的十进制来说明，假如有一个数16，在十进制中住右移一位，结果剩1，左移一位即是160，相当于16 Div 10 和 16 * 10；
同理，在二进制中整除和乘的是2。
得到如下：结果只是操作数与进制数之间的操作了。 ......
一、整数类型
类型 所占字节数 取值范围
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 -32768-32767
integer 4 -214748648-214748467
longint 4 -214748648-214748467
cordinal 4 0-2147483647
二、实数类型
类型 所点字节数 取值范围
Real 6 ±2.9×10的负39次方到1.7×10的38次方
Single 4 ±1.1×10的负45次方到1.1×10的38次方
double 8 ±5.0×10的负324次方到1.7×10的308次方
extended 10 ±3.4×10的负4932次方到1.1×10的4932次方
Comp 8 -263-262
三、字符类型
字符类 所点字节数 容纳字符范围
ansichar 1 一个ASCii字符
widechar 2 一个单代码字符
Char 1 一个ASCII字符
四、字符串类型
类型 容纳类型 是否以空字节结束 长度范围
shortstring Char 否 255
ansistring Char 允许 约3GB
string Char 不限 255或3GB
widestring widechar 允许 约1.5GB
五、布尔类型
类型 范围 所点字节数
bool 字 2
boolean 一字节 1
bytebool 字节 1
wordbool 字 2
longbool 双字节 4
详细版：
(1) 基本数据类型：
a、 整� ......
最新文章 : delphi