DELPHI常用函数集及简要范例_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI常用函数集及简要范例

作者：闵涛文章来源：闵涛的学习笔记点击数：19889 更新时间：2009/4/23 18:30:33

;string; Default:Longint): Longint;
Uppercase 将字串转成大写。function UpperCase(const S: string): string;
SysUtils
var
   S: string;
begin
   S:= UpperCase( ''''???????? Intel'''');       { S := ''''???????? INTEL''''}
end;
val 将字串内容转为数值描述。procedure Val(S; var V; var Code: Integer);
System  { $R+ }  { $R- }
var
   I, Code: Integer;
begin
Val( Edit1.Text, I, Code); { ??????????????? ????? ????????? ? ???? Edit1.Text ? ???????? ????? }
if Code<>0 then { ????????? ??????? ?????? ? ????????? ?????
    MessageDlg( ''''?????? ???????? ? ???????: ''''+ IntToStr(Code), mtWarning,[mbOk], 0)
else     { ??????? ??????? ?????}
    Canvas.TextOut( 20, 20, IntToStr(Sqr(I)));
end;
========================================
字串处理函数 (String-handling Routines : Null-terminated)
Unit: SysUtils
========================================
StrAlloc 配置一个最大长度为Size-1 的缓冲区给null 结尾字串
function StrAlloc(Size: Word): PChar;
StrBufSize 传回由StrAlloc 配置的字串缓冲区内可以储存的最大字元数。
StrBufSize( S: PChar ): Cardinal;
SysUtils

function StrBufSize(Str: PChar): Wrd;StrCat 连结两个字串并传回该字串。
function StrCat(Dest, Source: PCar): PChar;
StrComp 比照两个字串。function StrComp(Str1, Str2 : Pchar): Integer;
StrCopy 拷贝Source 字串到Dest 上。function StrCopy(Dest, Source: PChar): PChar
StrDispose 释回一个字串空间。function StrDispose(Str:PChar);
StrCopy 拷贝Source 字串到Dest 上并传回指向该字串结尾的指标。
function StrECopy(Dest, Surce: Pchar): Pchar;
StrEnd 传回一指标指向字串的结尾function StrEnd(Str: Pchar): Pchar;
StrLCat 将Source 字串连结到Dest 字串後，并传回连结的字串。
function StrLCat(Dest, Source:PCar; MaxLen: Word): PChar;
StrIComp 比较两个字串具无大小写区别
function StrIComp(Str1, Str2:Pchar): Integer;
StrLComp 比较两个字串到所指定的最大长度
function StrLComp(Str1, Str2:Pchar; MaxLen: Word): Integer;
StrLCopy 从一字串拷贝指定字元数到另一字串
Function StrLCopy(Dest,Source:PChar;MaxLen: Cardinal): PChar;
StrLen 传回字串的长度。function StrLen(Str: PChar):Cardinal;
StrLIComp 比较两个字串到所指定的最大长度具无大小写区别。
function StrLIComp(Str1, Str2:PChar; MaxLen: Word):Integer;
StrLower 将字串转成小写。
function StrLower(Str: PChar):PChar;
StrMove 拷贝Count 字元数，从Source 到Dest字串。
function StrMove(Dest, Source:PChar; Count: Cardinal): PChar
StrNew 从堆积配置一个字串。function StrNew(Str: PChar):PChar;
StrPas 将null 结尾字中转成一个Pascal 格式字串。
function StrPas(Str: Pchar):String;
StrPCopy 拷贝一个Pascal 格式字串到一个null结尾字串。
Function StrPCopy(Dest:PChar;Source: String): PChar;
StrPLCopy 拷贝MaxLen 所指字元数，从Pascal格式字串到null 结尾字串。
Function StrPLCopy(Dest:Pchar;cost Source: string;MaxLen: Word): PChar;
StrPos 传回一指标指向在Str1 内最先出现 Str2 字串的位置。
function StrPos(Str1, Str2: Pchar): Pchar;
StrScan 传回一指标指向在Str 字串中第一个出现chr 字元的位置。
function StrScan(Str: PChar; Chr: Char): PChar;
StrRScan 传回一指标指向在Str 子串中最後出现chr 字元的位置。
function StrRScan(Str: Pchar; Chr: Char): PChar;
StrUpper 将字串转成大写。function StrUpper(Str: PChar):PChar;
========================================
文字档案函数 (Text-file Routines)
Unit: System
========================================
Append 开启一个存在的档案供增加。procedure Append(var f: Text);
Eoln 判别一文字档是否在行尾。function Eoln [(var F: Text) ]:Boolean;
Flush 清除文字输出档的缓冲区。procedure Flush(var F: Text);
Read 从档案读入资料到所列变数。Typed files:
Procedure Read(F , V1[, V2,… ,Vn ] );
Text files:
procedure Read( [ var F: Text; ] V1 [,V2,… ,Vn]);
Readln 从档案读入资料到所列变数并跳至下一行。
procedure Readln( [ var F:Text; ]V1 [, V2,… ,Vn ]);
SeekEof 判别是否已到档尾。function SeekEof [ ( var F:Text) ]: Boolean;
SeekEoln 判别一档案是否在行尾。function SeekEoln [(var F: Text) ]: Boolean;
SetTextBuf 指定一个I/O 缓冲区给一文字档。procedure SetTextBuf(var F: Text; var Buf [ ; Size:Word ] );
Write 将变数内的资料写到档案。Text files:
procedure Write( [ var F:Text; ] P1 [,P2,… ,Pn ] );
Typed files:
procedure Write(F, V1[V2,… Vn]);
writeln 执行Write 程序并输出一个跳行到档案。
procedure Writeln([ var F: Text; ] P1 [, P2,… ,Pn ] );
========================================
转换函数(Transfer Routines)
Unit: System
========================================
Chr 传回ASCII 码所对应的字元。function Chr(X: Byte): Char;
Delphi 源码任务 ( http://home.kimo.com.tw/bruce0211/ ) 打字整理15
High 传回叁数在范围内的最高值。function High(X);
Low 传回叁数在范围内的最低值。function Low(X);
Ord 传回一个有序型态所对应的顺序值。function Ord(X): Longint;
Round 将一个实数值四舍五入而传回整数值。function Round(X: Real):Longint;
Trunc 将一个实数值去尾而传回整数值。function Trunc(X: Real):Longint;
========================================
未定型态档案函数(Untyped-file Routines)
Unit: System
========================================
BlockRead 从档案读入一个或数个记录到Buf 变数。
procedure BlockRead(var F: File; var Buf;Count: Word [; var Result:Word]);
BlockWrite 从一变数写入一个或数个记录。
procedure BlockWrite(var f: File; var Buf;Count: Word [; var Result:Word]);
======================================================
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
WinAPI 控件与消息函数
----------------
                 AdjustWindowRect
                 AdjustWindowRectEx
给定一种窗囗样式，计算获得目标客户区矩形所需的窗囗大小
======================================================
VB声明
Declare Function AdjustWindowRect Lib "user32" Alias "AdjustWindowRect" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long
Declare Function AdjustWindowRectEx Lib "user32" Alias "AdjustWindowRectEx" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Long, ByVal dwEsStyle As Long) As Long
说明
在给定一种窗囗样式的前提下，计算获得目标客户区矩形所需的窗囗大小
返回值
Long，如执行成功，则返回非零值；如失败，返回零值。会设置GetLastError

叁数表
叁数类型及说明
lpRect RECT，最初包含要求的客户区。由函数设为目标窗囗矩形大小
dwStyle Long，窗囗样式
bMenu Long，如窗囗有菜单，则设为TRUE（非零）
dwEsStyle Long，扩展窗囗样式（只适用於AdjustWindowRectEx）
注解
在调用本函数前，先用GetWindowLong取得一个窗体的样式。如菜单占用两行以上的空间，则函数不能正确计算大小。如程序使用了多行标题，则应使用GetSystemMetrics
======================================================
                    AnyPopup
判断屏幕上是否存在任何弹出式窗囗
-----------------------------------------
VB声明
Declare Function AnyPopup Lib "user32" Alias "AnyPopup" () As Long
说明
判断屏幕上是否存在任何弹出式窗囗
返回值
Long，如存在弹出式菜单，则返回TRUE（非零）
注解
对该函数来说，弹出式菜单包含所有可见的包容顶级窗囗，无论弹出式还是重叠窗囗
=====================================================
ArrangeIconicWindows 排列一个父窗囗的最小化子窗囗
VB声明
Declare Function ArrangeIconicWindows Lib "user32" Alias "ArrangeIconicWindows" (ByVal hwnd As Long) As Long
说明
排列一个父窗囗的最小化子窗囗（在vb里使用：用於在桌面排列图标，用GetDesktopWindow
函数获得桌面窗囗的一个句柄）
返回值
Long，图标行的高度；如失败，则返回零。会设置GetLastError
叁数表
叁数类型及说明
hwnd Long，父窗囗的句柄
注解

也可将该函数用於包含了图标化子窗囗的的定制控件
=======================================================
AttachThreadInput 连接线程输入函数
BeginDeferWindowPos 启动构建一系列新窗囗位置的过程
BringWindowToTop 将指定的窗囗带至窗囗列表顶部
CascadeWindows 以层叠方式排列窗囗
ChildWindowFromPoint 返回父窗囗中包含了指定点的第一个子窗囗的句柄

ClientToScreen 判断窗囗内以客户区坐标表示的一个点的屏幕坐标
CloseWindow 最小化指定的窗囗
CopyRect 矩形内容复制
DeferWindowPos 该函数为特定的窗囗指定一个新窗囗位置
DestroyWindow 清除指定的窗囗以及它的所有子窗囗
DrawAnimatedRects 描绘一系列动态矩形
EnableWindow 指定的窗囗里允许或禁止所有鼠标及键盘输入
EndDeferWindowPos 同时更新DeferWindowPos调用时指定的所有窗囗的位置及状态
EnumChildWindows

<< 上一页 [31] [32] [33] [34] [35] 下一页

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi中预想不到的代码

下一篇教程： Delphi数据库的动态建立

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……