Delphi中try…except…end与try…finally…end的应用
在Delphi的中，提供了try…except…end和try…finally…end语句。本人在过去得编程过程中，深刻地体会到，这两个语句的合理使用，可以带来很多好处。一方面可以使程序结构更加清晰，使得我们不用编写大量的意外情况处理的代码；另一方面使我们可以很容易的编写出十分稳定可靠的程序。
一、我们为什么要使用try意外控制语句？
假设我们现在要编写一个程序，在这个程序中需要对一个远程文件进行一系列操作。先看如下代码：代码1：
try
OpenRemoteFile;
UpdateRemoteFile;
CloseRemoteFile;
except
on E: Exception do
begin
CloseRemoteFile;
ShowErrorMessage;
end;
end;
这段代码中OpenRemoteFile和UpdateRemoteFile都有可能由于各种意外情况导致错误，当错误发生后，错误句柄将被捕获，继而执行on E: Exception do之后的语句。
设想如果Delphi没有提供try语句，那么我们的程序将被写成：
代码2：
if OpenRemoteFile then
begin
if UpdateRemoteFile then
CloseRemoteFile;
else
begin
CloseRemoteFile;
ShowErrorMessage;
end;
end
else
ShowErrorMessage;
不用说，这两段程序谁更“好”，谁更不容易出错。而且在实际使用中可能需要对远程文件做更复杂的操作。
二、try语句的一些简单应用。
在Delphi编程中常常遇到一些必须互相配对的语句，例如：对象的创建和释放；文件的打开和关闭；TDataSet的打开和关闭……。如果程序中不能很好的处理这些语句，就导致许多不可预测的现象。请参考如下代码：
代码3：显示一个“关于……”对话框。
frmAbout := TfrmAbout.Create(Application);
try
frmAbout.ShowModal;
finally
frmAbout.Free;
end;
又见如下代码：
代码4：备份模块备份按钮被按下的处理。由于操作时间比较长，按照Windows操作风格需要将光标变成沙漏的形状，但是无论备份是否成功都应会将光标恢复缺省状态。
procedure btnBackupClick(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
try
{ 备份处理 }
except
{ 当备份中发生意外后的处理 }
end;
Screen.Cursor := crDefault;
end;
代码5：通过TQuery打开一个查询读取某些信息，完成后关闭。经验表明以下代码将比较可靠。
var
qry: TQuery;
sErrMsg: string;
begin
if qry.Active then qry.Close;
try
qry.SQL.Clear;
qry.SQL.Add('select ...'); //加入SQL语句
qry.Open;
{ 读取查询中的信息，进行有关操作 }
qry.Close;
except
on E: Exception do
begin
sErrMsg := E.Message;
if qry.Active then qry.Close;
ShowMessage(sErrMsg);
end;
end;
end;
三、更复杂一些的应用
首先需要了解try语句与raise语句之间的关系。其实所有能够被try语句捕获的意外情况都是通过raise语句产生的。以前的例子程序为什么没有出现raise，是因为Delphi在提供有关功能的时候已经使用了raise语句。但是对于一些Delphi不产生意外，而我们又希望能够通过与其它意外情况相同的意外处理，那么我们可以在语句中自己raise一个意外，请看以下代码。
代码6：打开一个查询，在正常情况下至少由一条查询结果记录，如果没有记录肯定是某个地方发生错误，不能继续处理。
var
qry: TQuery;
sErrMsg: string;
begin
if qry.Active then qry.Close;
try
qry.SQL.Clear;
qry.SQL.Add('select ...'); //加入SQL语句
qry.Open;
if qry.eof and qry.bof then
raise Exception.Create('意外地发现数据表空。');
{ 读取查询中的信息，进行有关操作 }
qry.Close;
except
on E: Exception do
begin
if qry.Active then qry.Close;
{ 意外情况的处理 }
end;
end;
end;
请注意其中的“raise Exception.Create…”语句。当查询结果为空的时候，在正常情况下，系统是不会有Exception产生的，但是这是一种用户定义的错误，因此在其后的raise语句中我们人为的产生一个Exception。这样的话当查询结果为空的时候，程序将跳到“on E: Exception do”处继续执行。
try语句可以被嵌套。以下代码就是一种典型的应用：
代码7：打开一个数据表，然后用游标的方式（不是SQL语句方式）添加一条记录。
var
tbl: TTable;
begin
if tbl.Active then tbl.Close;
try
tbl.Open;
tbl.Append;
try
tbl.FieldByName('F1').AsString := sF1Value;
tbl.FieldByName('F2').AsString := sF2Value;
tbl.Post;
except
tbl.Cancel;
raise;
end;
tbl.Close;
except
on E: Exception do
begin
if tbl.Active then tbl.Close;
{ 意外情况的处理 }
end;
end;
end;
这段代码中当内层的try语句块肿是新增一条记录的处理，当新增一条记录的过程中，如果发生错误，首先应tbl.Cancel，但是这时候我们并不希望在这里完成我们所有的出错之后的处理，这时我们可以通过一个单独的“raise”语句将Exception交给外层的try语句来处理。这里我们为了能够说明问题，简化了很多代码。在实际情况中可能将添加一条记录的处理封装成一个procedure，在这个procedure中使用这种写法可以使程序在出错的处理中也有好的封装性。
在使用try语句的时候，以下这种情况再Delphi中是不允许的，请看代码：
代码8：
try
{ 有关的处理代码 }
except
on E: Exception do
begin
{ 处理代码1 }
try
{ 处理代码2 }
except
end;
{ 处理代码3 }
end;
end;
也就是说在出错处理中不可以再使用try语句块。但是如果将以上代码等价的转换为下列代码Delphi 是允许的。
代码9：
procedure ExceptionProcess;
begin
try
{ 处理代码2 }
except
end;
end;
try
{ 有关的处理代码 } except
on E: Exception do
begin
{ 处理代码1 }
ExceptionProcess; { 处理代码3 }
end;
WebEx Recorder:性能最好的录屏软件 你在寻找好用的录屏软件吗？商用级品质的WebEx Recorder就是一款优秀的录屏软件。WebEx Recorder可以录制全屏或指定窗口，可以设定是否包含声音，生成的文件体积极小且极清晰，录制过程占用资源很少。WebEx的最大优点是性能出众。WebEx 软件并不是个人开发或面向个人的小软件，而是完整的商业解决方案中包括的一款小工具。因此，它在效率和稳定性方面非常出色，称得上是善用佳软见过的录屏软件（包括几款共享软件）中性能最好的一款。例如，用WebEx Recorder全屏带声音录制1小时，生成的文件约25MB，且计算机仍工作流畅，无任何延缓。再如，包括微软、SAP在内的很多大公司，网络讲座经常采用WebEx平台。再如，有些录屏软件，时间太长的话会占用资源太大而失去响应，但WebEx不存在此情况。 1. WebEx Recorder 版权说明 WebEx Recorder不是免费软件，也不是共享软件，而是商业套件中的一个小工具。尽管从技术来讲，可以到主页下载，可以无限期应用，无任何注册提示或限制。但软件许可协议中规定：3.1 You may not: …… iii) utilize the Software for any purpose other than participation in a WebEx meeting or use of the WebEx services。 2. 下载安装WebEx Recorder 在官方下载 WebEx recorder v2.4，体积约 4271KB，安装后约 7MB。WebEx 安装后有三个快捷方式，包括 player、recorder、editor。但这并不意味着有3个独立程序：所谓的播放、录制、编辑其实对应同一个主程序，只是运行参数不同： ”D:\program files\WebEx\atauthor.exe” -PLAYER ”D:\program files\WebEx\atauthor.exe” ”D:\program files\WebEx\atauthor.exe”–EDITOR
一个windows自带的画图工具是无论如何也不能满足我们的画图需要的，很多效果都需要我们在另外的工具中来实现。这些高级的功能是如何实现的呢，如何操纵一些基本的属性和函数，让它们最终能作出我们想要的效果呢？这里我们以绘制统计图来说明这些问题。 解决思路―― 这里，我们暂且先撇开具体的问题，综合地一下讨论画图的问题。 画图工具是基本元素的具体实现，对于我们初学者来说，还是有很好的参考价值的，在delphi 5中有一个自带的工程例子“……Borland\Delphi5\Demos\Doc\Graphex”，这个例子可以实现一些基本的绘图功能。对这个例子多加修改，一定会有所收获的。这里就不列出它的详细代码了，有心的读者可以自己找到这个例子。我这里只是想综合地讨论这方面的问题。使用DELPHI编写绘图软件的灵魂就在于操作画布,画笔和刷子，尽可能地挖掘它们的属性和相关参数的设置。 (一)画布 画布,画笔和刷子之间的关系很明了.其实,画笔和刷子都是画布的一个属性.而画布也只是TForm,TImage,TShape等组件对象的一个属性,专门负责与图象相关的信息打交道.它的主要作用可以概括如下几点: 1.指定使用画笔,刷子和字体的使用类型; 2.绘制和填充指定形状的线或图形; 3.修饰和改变图象; 画布的主要属性有: Brush--指定填充图形和背景的样式 CanvasOrientation--指定画布的定位类型,有coLeftToRight, coRightToLeft两个属性; ClipRect--指定剪切矩形的边界; CopyMode--指定图形图象的复制模式; Font--指定画布上使用的字体; Handle--为画布指定窗口GDI对象的设备描述表; LockCount--指定画布被别的线程锁定的次数; Pen--指定画布上使用的画笔,具体见下面描述; PenPos--指定画笔当前的位置; Pixels--指定当前剪切矩形的象素颜色; TextFlags--指定字体在画布上的显示方式，有ETO_CLIPPED，ETO_OPAQUE，ETO_RTLREADING，ETO_GL YPH_INDEX,ETO_IGNORELANGUAGE,ETO_NUMERICSLOCALETO_NUMERIC SLATIN等值可选; 画布相关的API函数及其注释如下: Arc--按指定方式画一条弧; BrushCopy--把位图复制到指定的画布的矩形中，用画布刷子颜色替换位图的颜色; Chord--按指定方式画弦; CopyRect--从一个矩形区域复制部分图象到另一个矩形区域; Draw--用指定参数在指定位置画图; DrawFocusRect--按指定焦点风格，通过异或操作来绘制一焦点矩形; Ellipse--按指定参数画一椭圆; FillRect--按指定的刷子填充一矩形; FloodFill--使用当前选定的刷子填充指定设备描述表中的一块区域;
function ArcCos(const X : Extended) : Extended; overload; function ArcCos(const X : Double) : Double; overload; function ArcCos(const X : Single) : Single; overload; function ArcSin(const X : Extended) : Extended; overload; function ArcSin(const X : Double) : Double; overload; function ArcSin(const X : Single) : Single; overload; function ArcTan2(const Y, X: Extended): Extended; procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register; function Tan(const X: Extended): Extended; function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } function Secant(const X: Extended): Extended; { 1 / cos(X) } function Cosecant(const X: Extended): Extended; { 1 / sin(X) } function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } function RadToDeg(const Radians: Extended): Extended; inline; { Degrees := Radians * 180 / PI } function RadToGrad(const Radians: Extended): Extended; inline; { Grads := Radians * 200 / PI } function RadToCycle(const Radians: Extended): Extended; inline; { Cycles := Radians / 2PI } function DegToRad(const Degrees: Extended): Extended; inline; { Radians := Degrees * PI / 180} function DegToGrad(const Degrees: Extended): Extended; function DegToCycle(const Degrees: Extended): Extended; function GradToRad(const Grads: Extended): Extended; inline; { Radians := Grads * PI / 200 } function GradToDeg(const Grads: Extended): Extended; function GradToCycle(const Grads: Extended): Extended; function CycleToRad(const Cycles: Extended): Extended; inline; { Radians := Cycles * 2PI } function CycleToDeg(const Cycles: Extended): Extended; function CycleToGrad(const Cycles: Extended): Extended; { Hyperbolic functions and inverses } function Cot(const X: Extended): Extended; inline; { alias for Cotan } function Sec(const X: Extended): Extended; inline; { alias for Secant } function Csc(const X: Extended): Extended; inline; { alias for Cosecant } function Cosh(const X: Extended): Extended; function Sinh(const X: Extended): Extended; function Tanh(const X: Extended): Extended; function CotH(const X: Extended): Extended; inline; function SecH(const X: Extended): Extended; inline; function CscH(const X: Extended): Extended; inline; function ArcCot(const X: Extended): Extended; { IN: X <> 0 } function ArcSec(const X: Extended): Extended; { IN: X <> 0 } function ArcCsc(const X: Extended): Extended; { IN: X <> 0 } function ArcCosh(const X: Extended): Extended; { IN: X >= 1 } function ArcSinh(const X: Extended): Extended;
DELPHI中如何调用API,可举例说明 第一部分Delphi知识1. 如果一个元件希望放到IDE的元件面板上，它必须从________类派生，如果一个元件能作为其它元件的容器，它必须从_____________类派生，如果一个元件在运行时可见，它必须从___________________类派生(A)TGraphicControl (B)TWinContr 1、rtl70.bpl是什么？有什么用？ 2、delphi的Package相对dll有什么优点？ 3、以下的记录(结构)变量在内存占多少字节？type a = packed record v1: Byte; v2: Word; v3: string[16]; v4: Double; v5: string; v6: TForm; end; 4、以下的写法是否正确？type a 1.您为什么选择软件开发这个行业？(30字左右简写)； 2.如果有您解决不了的软件问题您会采取什么样的解决措施； 3.a.请您写出Object Pascal所支持的数据类型；b.请您写出Shl、Shr、Xor、Not 的数学表示法; 4.请您写出VCL结构层次(以TObject开始,最少五层）；5 二.是非题（共20道）1.从主菜单上选择Project|Syntax Check 菜单选项，Delphi将编译从上次编译后有改动的任何单元，并报出遇到的错误。（）2.Delphi的VCL对象有些是指针，从堆栈中分配空间，有些则不是。（）3.粘贴时，如果作为容器的组件已被选择，
剪贴 一.选择题（共40道）1.用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。A、F12和F11 B、F12和F13 C、F12和Ctrl+F12 D、F12和Alt+F12 E、F12和Shift+F12 2.某函数如下：Function check(n,k:Integer):Integer; Var m:Integer; Beg 编程语言：delphi7.0或Vc++6.0 时间：4小时内环境：可参考帮助文档，但不能上网查资料1、编程查找指定目录下所有EXE 文件，并将其全路径存入Result.txt中，要求用递归。2、采用SOCKET(可用SOCKET API或delphi Socket控件)实现点对点传输大文件，要求不能掉
一、数据类型转换函数1 在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明：该函数用于将“浮点型”转换成“字符型”。 参考实例： Edit1.Text := FloatToStr(1.981); 2.IntToStr 功能说明：该函数用于将“整数型”转换成“字符型”。 参考实例： S := IntToStr(10);(注：S为String类型变量。) 3.IntToHex 功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数1。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。 参考实例： Edit1.Text := IntToHex('100', 2);
执行结果，Edit1.Text等于64。 注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I := StrToInt('S\' + '64'); 这时I等于100。加上一个'S\'即可将“十六进制”转换为“十进制”。 4.StrToInt 功能说明：该函数用于将“字符型”转换成“整数型”。 参考实例： I := StrToInt('100'); 注意：不能转换如StrToInt('ab')或StrToInt('好')这样的类型，因为他们并不存在数字型。 5.StrToFloat 功能说明：该函数用于将“字符型”转换成“浮点型”。 参考实例： N := StrToFloat(Edit1.Text); 注意：Edit1.Text中的内容为1.981(凡在Edit 控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。
DELPHI Variant变量的使用技巧。。。。。。 delphi 为了完全支持OLE，32位Delphi 增加了Variant 数据类型，本节将从宏观角度来分析这种数据类型。实际上，Variant类型对Pascal语言有普遍而深入的影响，Delphi 控件库中与OLE 无关的地方也使用到这种类型。 Variant变量没有类型 一般说来，你可以用Variant 变量存储任何数据类型，对它执行各种操作和类型转换。需要注意的是：这违反了Pascal 语言的一贯原则，有悖于良好的编程习惯。variant 变量的类型检查和计算在运行期间才进行，编译器不会提示代码中的潜在错误，这些错误在进一步测试中才能发现。总之，你可以认为包含variant变量的代码是解释性代码，正如解释性代码一样，许多操作直到执行时才能知道，这对代码运行速度会有很大的影响。 上面对Variant 类型的使用提出了警告，现在来看看Variant 类型究竟能干什么。基本上说，如果声明了一个variant 变量： var V: Variant; 你就可以把各种不同类型的值赋给它： V := 10; V := 'Hello, World'; V := 45.55; 一旦得到一个variant 值，你可以把它拷贝给任何兼容或不兼容的数据类型。如果你把值赋给不兼容的数据类型，Delphi 会力尽所能进行转换，无法转换则颁布一个运行时间错误。实际上，variant变量中不仅包含了数据还包含有类型信息，并允许一系列运行时间操作,这些操作很方便，但运行速度慢且安全性差。 见例VariTest，它是上面代码的扩展。窗体上有三个编辑框，一对按钮，第一个按钮的OnClick 事件代码如下： procedure TForm1.Button1Click(Sender: TObject); var V: Variant; begin V := 10; Edit1.Text := V; V := 'Hello, World';
Delphi函数大全 首部function Languages: TLanguages; $[ 功能返回系统语言对象 说明通过此函数可以得到系统的语言环境 参考type 例子 12a12c12a12c. 参考
type //HCNetSDK头文件类型声明Delphi改写 //基本数据类型声明 DWORD=LongWord; //WORD:Word; USHORT=Word; LONG=Longint; //BYTE=char ; //#define BOOL int UINT=Longword; LPVOID=Pointer; HANDLE=Pointer; LPDWORD=^LongWord; //typedef unsigned long long UINT64; //NET_DVR_Login_V30()参数结构 type LPNET_DVR_DEVICEINFO_V30=^NET_DVR_DEVICEINFO_V30; NET_DVR_DEVICEINFO_V30=Record sSerialNumber:array [0..SERIALNO_LEN-1] of BYTE ; //序列号 byAlarmInPortNum:BYTE ; //报警输入个数 byAlarmOutPortNum:BYTE ; //报警输出个数 byDiskNum:BYTE ; //硬盘个数 byDVRType:BYTE ; //设备类型, 1:DVR 2:ATM DVR 3:DVS ...... byChanNum:BYTE ; //模拟通道个数 byStartChan:BYTE ; //起始通道号,例如DVS-1,DVR - 1 byAudioChanNum:BYTE ; //语音通道数 byIPChanNum:BYTE ; //最大数字通道个数 byZeroChanNum:BYTE ; //零通道编码个数 //2010-01-16 byMainProto:BYTE ; //主码流传输协议类型 0-private, 1-rtsp bySubProto:BYTE ; //子码流传输协议类型0-private, 1-rtsp bySupport:BYTE ; //能力，位与结果为0表示不支持，1表示支持， //bySupport & 0x1, 表示是否支持智能搜索 //bySupport & 0x2, 表示是否支持备份 //bySupport & 0x4, 表示是否支持压缩参数能力获取 //bySupport & 0x8, 表示是否支持多网卡 //bySupport & 0x10, 表示支持远程SADP //bySupport & 0x20, 表示支持Raid卡功能 //bySupport & 0x40, 表示支持IPSAN 目录查找 //bySupport & 0x80, 表示支持rtp over rtsp bySupport1:BYTE ; // 能力集扩充，位与结果为0表示不支持，1表示支持 //bySupport1 & 0x1, 表示是否支持snmp v30 //bySupport1 & 0x2, 支持区分回放和下载 byRes1:BYTE ;
(DELPHI)API函数大全 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置GetMessageTime 取得消息队列中上一条消息处理完毕时的时间PostMessage 将一条消息投递到指定窗口的消息队列PostThreadMessage 将一条消息投递给应用程序RegisterWindowMessage 获取分配给一个字串标识符的消息编号ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件
Delphi文件操作 变量的数据保存于内存中，随程序运行的结束而结束，若要使程序下次运行时能重复使用或给其他程序员使用，必须保存在文件中，Delphi存取文件的方式有4种，即传统的PASCAL方式、windows API文件句柄方式、VCL文件流方式、使用类方法方式。使用类方法方式比较简单，其他三种方式一般的步骤为： (1) 声明文件类型变量； (2) 给文件类型变量指定文件名； (3) 通过文件类型变量打开并且读写文件，必要时进行文件定位； (4) 关闭文件。 1、PASCAL方式访问文件 文件是由相同数据类型的数据元素组成的序列，文件可以分为三种类型：文本文件，类型文件，无类型文件。文本文件中每个数据元素就是一个字符，占有一个字节，并以回车换行符（#13#10）表示每行的结束；类型文件中每个数据元素的数据类型可以是整数、实型记录型等；无类型文件中每个数据元素是一个字节的二进制数。 文件和数组在形式上有些类似，但实质上有诸多不同，主要表现为以下三个方面：（1）数组的元素个数一般是固定的，而文件的长度一般是不定的、随即的； （2）数组元素总是放于内存中，而文件往往存于外存中； （3）数组以“数组名[下标]”的形式访问数组中的任意一个元素，而文件则需要通过文件变量来访问。 1）类型文件 例一、Button1按钮将记录数组XS[0..1]写入文件…Stu.dat?，Button2将…Stu.dat?读到记录变量X1,X2，然后用消息框输出。 TYPE Stu = Record Xh:integer; Xm:string[20]; END; Procedure TForm1.Buttonclick(Sender:TObject);//记录数组写入文件 Const xs:array[0..1] of Stu=((Xh:=405;xm:='张三'),(xh:=406,xm:='李四')); Var F:File of Stu; begin AssignFile(F,'Stu.dat');//关联文件 ReWrite(F);//打开方式（写） Write(F,xs[0],xs[1]);//将数组写到文件 CloseFile(F); end; procedure TForm1.Button2Click(Sender: TObject); Var F:File of Stu; x1,x2:Stu; begin AssignFile(F,'Stu.dat');
delphi函数参考手册 名称类型说明 abort 函数引起放弃的意外处理 abs 函数绝对值函数 addexitproc 函数将一过程添加到运行时库的结束过程表中addr 函数返回指定对象的地址 adjustlinebreaks 函数将给定字符串的行分隔符调整为cr/lf序列align 属性使控件位于窗口某部分 alignment 属性控件标签的文字位置 allocmem 函数在堆栈上分配给定大小的块 allowgrayed 属性允许一个灰度选择 ansicomparestr 函数比较字符串（区分大小写）ansicomparetext 函数比较字符串（不区分大小写）ansilowercase 函数将字符转换为小写 ansiuppercase 函数将字符转换为大写 append 函数以附加的方式打开已有的文件 arctan 函数余切函数 assignfile 函数给文件变量赋一外部文件名 assigned 函数测试函数或过程变量是否为空 autosize 属性自动控制标签的大小 backgrounddi2001.jpg 属性背景色 beginthread 函数以适当的方式建立用于内存管理的线程bevelinner 属性控件方框的内框方式
bevelouter 属性控件方框的外框方式 bevelwidth 属性控件方框的外框宽度 blockread 函数读一个或多个记录到变量中blockwrite 函数从变量中写一个或多个记录borderstyle 属性边界类型 borderwidth 属性边界宽度 break 命令终止for、while、repeat循环语句 brush 属性画刷 caption 属性标签文字的内容 change 函数改变文件的后缀 chdir 函数改变当前目录 checked 属性确定复选框选中状态 chr 函数返回指定序数的字符 closefile 命令关闭打开的文件 color 属性标签的颜色 columns 属性显示的列数 comparestr 函数比较字符串（区分大小写）concat 函数合并字符串 continue 命令继续for、while、repeat的下一个循环copy 函数返回一字符串的子串 cos 函数余弦函数 ctl3d 属性是否具有3d效果
delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程 BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环 Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果 Cursor属性鼠标指针移入后的形状 Date函数返回当前的日期 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串 DateToStr函数将日期格式转换为字符串
ClientDataSet的用法（转）- CNQCJ 的Delphi 博客- 博 客园 ClientDataSet的用法（转）TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器中该属性编辑按钮，或在该控件上单击右键选择弹出菜单中的"Fields Editor"菜单进行字段编辑。设置完此属性后，实际上就相当于定义了表的结构；如果想装入已有的数据表的结构和数据，可通过单击右键选择弹出菜单中的"Assign Local Data"菜单，从弹出对话框中选取当前窗体中已与数据库连接好的数据集控件名 称即可（当前窗体中必须已放置好要套用的数据集控件并打开激活）。 使用注意： 对于自定义的字段名表，该属性编辑完后，该控件仍然无法打开。必须右键单击该控件，选择弹出菜单中的"Create DataSet"菜单，让该控件以上述编辑的字段列表为依据，创
建数据集后，才能够被激活打开和使用。否则，会出现类似"ClientDataSet1: Missing data provider or data packet."的错误（包括在运行期，运行期可调用该控件的CreateDataSet 方法，从而动态定义字段和表）。 2)．FileName属性 说明：数据存储文件的名称。 因该控件是基于文件型的数据操作控件，因此，必须指定所操作的数据文件名称（默认扩展名称.cds），从而打开和激活该控件，进而进行数据编辑。 例1：利用此属性打开指定的.cds文件 var Path: string; begin Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 CDataSet1.FileName := Path + 'test.cds'; CDataSet1.Open; end; 3)．CreateDataSet方法 说明：该方法以FieldDefs中的字段名表为结构建立数据集，常用来进行动态定义表。 例2：动态创建一具有姓名和年龄两个字段的数据集。
【字符串函数大全】 首部function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似 说明ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否包含子串ASubText 说明不区分大小写 参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText开头 说明不区分大小写 参考function https://www.doczj.com/doc/c613844550.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾 说明不区分大小写 参考function https://www.doczj.com/doc/c613844550.html,pareString 例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串AText中用子串AFromText替换成子串AToText的结果 说明不区分大小写 参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
arecord 使用 一.alsa-utils介绍 ALSA是kernel中的一个声音驱动程序.它包括alsa核心和其他声卡的驱动. alsa-utils是alsa的一个工具包,里面包含有声卡测试和音频编辑的工具.二.alsa-utils的安装 1.RPM包方式 Turbolinux 10.5,11版本已经包含有alsa-utils的rpm包,你可以直接安装: # rpm -ivh alsa-utils-xxx.rpm2.源码包方式 下载地址: https://www.doczj.com/doc/c613844550.html,/main/index.php/Download
源码包安装方法: # tar zxvf alsa-utils-1.0.6.tar.gz # cd alsa-utils-1.0.6 # ./configure # make install三.alsa-utils工具的使用 alsa-utils包含的工具有: alsactl, aconnect, alsamixer, amidi, amixer, aplay, aplaymidi, arecord, arecordmidi, aseqnet, iecset, speaker-test1.alsactl的使用 alsactl用来对alsa声卡驱动进行一些高级的设置.系统中装有多个声卡,它也可以支持. 有时在音量控制面板无法调整的选项,可以使用alsactl来实现. alsactl可以将指定声卡的驱动程序设置信息保存到配置文件.或从配置文件中恢复指定
声卡的驱动程序的设置信息. alsactl格式: alsactl [options] [store|restore] 选项: -h, --help 打印帮助信息 -f, --file 指定使用的配置文件,默认为/etc/asound.state. Select the configuration file to use. The default is /etc/asound.state -F, --force 与恢复命令一起使用.表示最大限度的恢复设置值.
在DELPHI中提供了一个PRINTERS程序单元，它说明了一个TPRINTER对象，封装了WINDOWS打印工作和输出打印机之间的接口，并提供常用的属性和方法，其中画布CANVAS是一个非常有用的属性，它代表了当前打印文件的表面，是以图形方式来工作的，整个的打印输出工作仅仅是将你打印的内容输出到TPRINTER的属性CANVAS上，当全部的输出工作完成以后，打印对象（TPRINTER）把CANVAS的属性值送到打印机上去。 下面举例来说明如何通过DELPHI实现文本内容的打印。在DELPHI 中提供了PRINTDIALOG、PRINTERSETUPDIALOG两个控件允许我们进行打印机以及其他影响打印输出的选择，此外最重要的一点是要想实现打印功能必须在编译程序以前将PRINTERS加入到INTERFACE或者IMPLEMENTATION的UESE语句当中，因为PRINTER单元包括ASSIGNPRN和其他控制打印机的过程。 首先在FORM当中加入MEMO、PRINTDIALOG、PRINTERSETUPDIALOG和两个BUTTON控件，两个BUTTON的CAPTION分别为“打印设置”和“打印”。然后编写BUTTON的事件驱动程序（代码在下面），这个简单的例子中只要单击“打印”按钮时便可以在打印机上输出文件0S2.TXT，打印事件的清单如下： implementation
usesprinters; {$R*.DFM} procedureTForm1.BitBtn1Click(Sender:TObject); begin printersetupdialog1.execute;//选择输出的打印机以及其他打印控制选项 end; procedureTForm1.BitBtn2Click(Sender:TObject); var lines:integer; prntext:system.text; //将PRNTEXT声名为一个在SYSTEM程序单元当中定义的文本文件begin ifprintdialog1.executethen assignprn(prntext);//将PRNTEST分配给打印机 rewrite(prntext);//调用REWRITE函数，为输出打开已分配的文件printer.canvas.font:=memo1.font; //把当前MEMO1的字体指定给打印对象的CANVAS的字体属性forlines:=0tomemo1.lines.count-1do