DELPHI 表格控件DBGridEh全属性设置详解 最全的属性设置说明

DELPHI 表格控件DBGridEh全属性设置详解   最全的属性设置说明
DELPHI 表格控件DBGridEh全属性设置详解   最全的属性设置说明

DELPHI 表格控件DBGridEh

属性设置详解

----白波九道-----

属性

子选项 值

说明

Allowedoperations

[alopInsertEh,alopUpdateE h,alopDeleteEh,alopAppen dEh]

允许操作类型:插入、更新、删除、追加

Allowedselections

[gstRecordBookmarks,gst Rectangle,gstColumns,gst All] gstRecordBookmarks:书签选中行 gstRectangle :区域选择 gstColumns :列选择 gstAll :所有

AutoFitColWidths

以自动重置列宽来设置网格的宽度等于客户区宽度

AlwaysShowEditBu tton

列显示下拉编辑按钮 AutoDropDown 自动下拉框

DblClickNextVal 双击单元格为下一个值,数值为加1,列表下下一个 DropDownShowTitl es

下拉框显示标题 DropDownSizing 下拉框可否手动调整大小 EndEllipsis 列内容显示不全的显示省略号 [Footer].Tooltips 底栏是否显示提示 HighLightRequired Layout

内容位置 Alignment 标题对齐方式 Color 标题颜色

EndEllipsis 标题过长用省略号结束 Orientation 标题文字方向 TitleButton 是否显示标题按钮 Title

Tooltips 标题是否显示提示 ColumnDefValuesEh (列缺省值)

Tooltips

是否显示提示

Columns[index]/

Columns[ColumnName] 列对象,可用索引和名称调用 Columns

OptimizeWidth

根据内容自动调整列宽 Constraints 控件尺寸约束规定 ContraColCount 右侧锁定列 Ctl3D 3d 风格显示 Cursor

显示鼠标指针样式 Active 激活数据分组 Color

汇总行颜色

DefaultStateExpand ed 默认显示是否为为全展开 Font 汇总行字体显示选项

DataGrouping

(数据分组设置) 表格中显示如EXCEL 中的分类汇总效果

须加 MemT ableEh DataSetDriverEh,

GroupLevels

分组的级数如先按国别分组再按城市分

GroupPanelVisible

是否显示顶部的分组图示面板 ParentColor 使用父件颜色设置 Uses 添加EhLibMTE ParentFont 使用父件字体设置 AutoEdit

自动提交表格修改到数据源 Dataset 数据集选项 Enabled 启用数据源 Datasoure (数据源设置) Tag 数据源标记(LongInt)

DefaultDrawing 使用缺省的方式绘制表格,如为FALSE 须 OnDrawDataCell 事件中提供自己的例程 DrawGraphicData

DrawMemoText

显示文本式备注字段

EditActions

[geaCutEh,geaCopyEh,gea PasteEh,geaDeleteEh,geaS electAllEh] 编辑属性,设置是否可以剪切、复制、粘贴、删除、选择 sebshowOnlyforCur Celleh

只在当前单元格显示 sebshowOnlyforCur Roweh

只在当前行显示 sebshowOnlyWhen GridActiveEh 当表格激活时显示

EditButtonShowOptio ns

(编辑按钮显示选项)

sebshowOnlyWhen DataEditingEh

当单元格进入编辑状态时显示 EvenRowColor 偶数行颜色

FixedColor 固定区域颜色(如表头列头) Flat 平面显示效果(标题行渐变色须启用) Font 字体设置选项 FooterColor 底栏颜色 FooterFont 底栏字体设置 FooterRowCount 底栏行数 FrozenCols

左侧冻结列数 ExtScrollBar

SmoothStep True 平滑滚动/False 按列滚动 Tracking True 跟踪显示/Fasle 松开后显示 HorzScrollBar (水平滚动条设置) Visible 是否显示 Imemode 输入法模式选项 ImeName

输入法 gioShowRowIndicatorEh 显示行指针 gioShowRecNoEh 显示行号 IndicatorOption (行首指示选项)

gioShowRowselCheckbox esEh

显示行选择框 IndicatorTitle (行道指示标题)

DropdownMenu

pmNoVisibleCols/ PopupMenu1

表头下拉菜单样式

ShowDropdownSign

显示下拉箭头图案 TitleButton 按钮是否启用 UseGlobalMenu

用全局菜单 Left

左端位置 MinAutoFitWidth 自适应宽度最小值 Name 控件名称 OddRowColor

奇数行颜色 dgEdit

能否编辑,

dgAlwaysShowEditor 总是显示编辑项,选中时单击单元格直接进入编辑状态,否则双击进入编辑状态 dgTitles 显示列标题 dgIndicator 显示行首指针

dgColumnResize 可否调整列宽 dgColLines 显示列线 dgRowLines 显示行线

dgTabs 接收TAB 键移动到下一单元格 dgRowSelect

整行选择 dgAlwaysShowSelection 显示选择区域 dgConfirmDelete 删除时确认 dgCancelOnExit

Options

(表格通用选项)

dgMultiSelect 可多行选择

dghFixed3D 固定区(表头列头)3D 效果(渐变色须启用) dghFrozen3D 冷区3D 效果 dghFooter3D 栏底3D 效果 dghData3D

数据区3D 效果 dghResizeWholeRightPart

dghHighlightFocus 高光选择焦点

dghClearSelection 移到下一个单元时是否清除已选记录 dghFitRowHeightToText 按文本适应行高 dghAutoSortMarking 自动排序 dghMultiSortMarking 多级排序 dghEnterAsTab 回车键作为TAB dghTraceColSizing 移动列宽时动态显示内容

dghIncSearch

允许在数据网格中进行增量搜索 Ctrl+F - 开始增量搜索。

Ctrl+Enter - 查找下一个匹配记录。 Ctrl+Shift+Enter - 查找前一个匹配记录 dghPreferIncSearch 决定网格设置自动增量搜索模式在第一次按键时替代单元编辑 dghRowHighlight 选中是整行高亮 OptionsEh

(Dbgrideh 表格专属选项)

dghDblClickOptimizeCol

双击自动优化列宽

Width dghDialogFind 显示查找对话框 dghRecordMoving 记录移动 dghShowRecNo 显示行号 dghColumnResize 可否调整列尺寸 dghColumnMove 可否移动列位置 dghAutoFitRowHeight 自适应行高 dghHotTrack 热点跟踪

dghExtendVertLines 扩展列线(无记录区)

ParentBiDiMode

确定BiDiMode(控制菜单的布置模式)属性是否从父辈继承而来,菜单的父辈一般为Form

ParentColor 接受父控件的颜色属性 ParentCtl3D 接受父控件的3D 属性 ParentFont 接受父控件的字体属性 ParentShowHit 接受父控件的显示提示设置 PopupMenu 弹出菜单 ReadOnly

只读 Active 激活 ActiveControl

BevelEdges 控件的是否显示斜面

BevelInner 内部斜面 BevelKind 边框类型 BevelOuter 外部斜面 BevelWidth 边框宽度 BorderStyle 边框样式 Color 颜色 Height 高 ParentColor 面板底色

ParentPopupMenu 接受父控件菜单设置 RowDetailPanel (行明细表面板)

(RowDetailPanel 打开,再将DbGridEh2放入,设置MemTableEh2的MasterFields 和DetailFields,

MasterDBGridEh 的DataSet 必须是MemtablEh ) Width 宽 RowHeight 行高

RowLines

行线高(完整的数据行高 = 行线高度+行高) Active

激活

rpntRowToRowEh 方向键控制方式为行到行 NavKeysNavigat ionType rpntCellToCellEh 方向键控制方式为单元格到单元格 rpntUpToDownPriorit yEh

TAB 键顺序为从上至下,从左至右 RowPanel

(行面板:可在设计和运行时直接拖动列头设计每行的数据字段显示风格)

TabNavigationT ype

rpntLeftToRightPrio rityEh

TAB 键顺序为从左至右,从上至下

RowSizingAllowed 行尺寸可手控调动 ShowHint 显示提示 SortLocal

本地排序 InstantApply 立即应用过滤

Local 本地数据集过滤或服务器端数据过滤 Location 过滤设置位置是在表头还是在其下过滤行 STFilter

(数据过滤设置)

Visible 可视 Active 激活

ExternalRecalc 设计/运行期是否显示统计数据 Sumlist (记录统计) VirtualRecords 虚拟记录数 TabOrder Tab 顺序 TabStop TAB 停留 Tag

TitleFont 标题行字体设置 TitleLines 标题行数 Top

顶部坐标 UseMulitTitle

是否用多行标题 ExtScrollBar

SmoothStep True 平滑滚动/False 按行滚动 Tracking True 跟踪显示/Fasle 松开后显示 VerScrollBar

(垂直滚动条选项) Visible 是否显示 Visible 控件可视状态

VtitleMargin 标题文字离标题线的距离 Width

表格控件宽度

花了点时间用笨办法将dbgrideh 的属性一个一个的看了下,列了个详细表格解释,希望对大家有所帮助。 白波九道 2013.9.10

Delphi函数清单

[标准函数和过程] 首部 procedure Abort;$[SysUtils 功能引起放弃的意外处理。 说明不显示任何错误信息。 首部 function Abs(N: ): ;$[System 功能返回参数N的绝对值。 说明函数结果与参数有相同类型,参数可以是整型也可以是浮点型。 ## Abs(-12) = 12;Abs(-12.03) = 12.03 首部 procedure AddExitProc(Proc: TProcedure);$[SysUtils 功能将旧版本某一过程添加到当前版本运行的库的结束过程表中。 说明只能向下兼容,不能用在当前使用版本的 首部 function Addr(X): Pointer;$[System 功能返回指定对象的内存地址。 说明地址运算符 @ 可以产生与Addr相同的结果。 首部 procedure AddTerminateProc(TermProc: TTerminateProc);$[SysUtils 功能将一过程添加到运行时库的终止过程表中。 说明 Delphi 在程序结束时将终止该程序的全部进程,可以终止的进程都放在终止过程表中,程序通过结束终止过程表所有的进程来实现终止全部进程的目的。 首部 function AdjustLineBreaks(const S: string): string;$[SysUtils 功能将给定字符串的行分隔符调整为Cr/Lf序列。 说明 首部 function AllocMem(Size: Cardinal): Pointer;$[SysUtils 功能在堆栈上分配给定大小为 Size字节的块,即在内存里开辟Size 大小的空间。 说明 Cardinal 0..4294967295 32位无符号整数 首部 function AnsiCompareFileName(const S1, S2: string): Integer;$[SysUtils 功能比较两个文件名的大小。不区分大小写。 说明条件返回值 S1 > S2 | > 0 S1 < S2 | < 0 S1 = S2 | = 0 首部 function AnsiCompareStr(const S1, S2: string): Integer;$[SysUtils 功能比较两个字符串的大小。要区分大小写。 说明参见AnsiCompareFileName。 首部 function AnsiCompareText(const S1, S2: string): Integer;$[SysUtils 功能返回两个字符串是否相同的状态。不区分大小写。 说明参见AnsiCompareFileName。 首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char):string;$[SysUtils 功能将引用字串转换成结束引语返回。 说明函数支持多字节字符系统[MBCS]。 首部 function AnsiLastChar(const S: string): PChar;$[SysUtils 功能取参数S的最后一个字符,并转换成以null结束的字符串指针返回。 说明 ##AnsiLastChar(‘Sysoft’) = {‘t\0’}; 首部 function AnsiLowerCase(const S: string): string;$[SysUtils 功能将字符串S转换为小写返回。 说明函数支持多字节字符系统[MBCS]。 首部 function AnsiLowerCaseFileName(const S: string): string;$[SysUtils 功能将文件名S转换成小写返回 说明函数支持多字节字符系统[MBCS]。 首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils 功能返回子串Substr出现在主串S中的第一个位置。 说明 首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils 功能返回引用字串的译文 说明 首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils 功能比较两个指针字符串的大小。要区分大小写。 说明参见AnsiCompareFileName。

delphi数学模块函数、过程大全

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函数大全

Delphi函数大全 首部function Languages: TLanguages; $[ 功能返回系统语言对象 说明通过此函数可以得到系统的语言环境 参考type 例子 12a12c12a12c. 参考 例子:= IsValidIdent; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToStr(Value: Integer): string; overload; $[ 首部function IntToStr(Value: Int64): string; overload; $[ 功能返回整数Value转换成字符串 说明Format('%d', [Value]) 参考function 例子:= IntToStr; ━━━━━━━━━━━━━━━━━━━━━ 首部function IntToHex(V alue: Integer; Digits: Integer): string; overload; $[ 首部function IntToHex(V alue: Int64; Digits: Integer): string; overload; $[ 功能返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考function 例子:= IntToHex, ; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToInt(const S: string): Integer; $[ 功能返回字符串S转换成整数 说明字符串非整数表达时将引起异常 参考procedure 例子:= StrToInt; ━━━━━━━━━━━━━━━━━━━━━ 首部function StrToIntDef(const S: string; Default: Integer): Integer; $[ 功能返回字符串S转换成整数 说明字符串非整数表达时则返回默认值Default 参考procedure 例子:= StrToIntDef, 0); ━━━━━━━━━━━━━━━━━━━━━ 首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[ 功能返回字符串S转换成整数V alue是否成功 说明字符串非整数表达时返回False并且Value将输出为0 参考procedure 例子 ..);打开失败则返回负数 参考function

(DELPHI)API函数大全

(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常用函数大全(转) 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函数将日期格式转换为字符串

Delphi字符串处理函数

【字符串函数大全】 首部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.360docs.net/doc/a42260335.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾 说明不区分大小写 参考function https://www.360docs.net/doc/a42260335.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);

Delphi函数大全 (2)

Delphi函数大全 function Int(X:Extended):Extended;//取整 function Round(X:Extended):Int64;//四舍五入function Trunc(X:Extended):Int64;//将小数无条件舍去信息来源:邪恶八进制信息安全团队 名称类型说明 ---------------------------------------------------------------------------------- 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函数改变当前目录

delphi的函数手册

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函数返回一字符串的子串

Delphi 位操作的函数

///// Delphi 位操作的函数(修改了一下,更靠近使用习惯) ///// unit BitControl; interface /// /||| INT32 INT16 BYTE |||///// /// /|||第…. 8 7 6 5 4 3 2 1 位|||///// /// /||| …… B7 B6 B5 B4 B3 B2 B1 B0 |||///// uses SysUtils; type TBitCount = (Bit_8 = 8, Bit_16 = 16, Bit_32 = 32); // getbit方法可以输入一个数,查询指定位是1还是0. function getbit(number: Integer; // 要查询位的数 nBit: Byte; // 要查数的第几位 BitCount: TBitCount // 是输入的数的位数,8,16,32 ): Byte; // 函数返回的是要查的数的第几位的值 // SetBit设置一个数的第几位的值为1或0. function SetBit(number: Integer; // 要设置位的数 nBit: Byte; // 数的第几位 BitCount: TBitCount; // 数的位数,8,16,32 value: Byte // 要置1或0,Value只能输入1或0. ): Integer; // 返回修改位后的数 // 取得一个数中从第几个位开始取多少个位的值 function getbits(number: Integer; // 要取位的数 nBit, // 从第几位开始取位 iBit: Byte; // 取多少位 BitCount: TBitCount // 数的位数,8,16,32 ): Integer; // 返回取位后的数 // 这个函数可以把一个数转换为二进制值的字符串 function int2bin(number: Integer; // 要转换的数 BitCount: TBitCount // 数的位数,8,16,32 ): string; // 返回转换后的字符串 implementation /// ////////////////////////////////////////////////////////////////////////////// function getbit(number: Integer; nBit: Byte; BitCount: TBitCount): Byte; begin GetBit := number;

Delphi操作EXCEL函数整理

一、使用单元: Use :EXCEL 2000, ComObj 二、定义 var ExcelApp,Sheet,Range: Variant; 注释: ExcelApp 为定义的Excel 对象 Sheet 为定义的工作表(Sheet)对象 Range 为定义的工作表范围 三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化 1. 创建excel对象: ExcelApp := CreateOleObject( 'Excel.Application' ); 2. 显示当前窗口: ExcelApp.Visible := True; 3. 更改Excel 标题栏: ExcelApp.Caption := '应用程序调用Microsoft Excel'; 4. 添加新工作簿: ExcelApp.WorkBooks.Add; 5 打开已存在的工作簿: ExcelApp.WorkBooks.Open(FilePath); 6.设置工作簿默认工作表张数 ExcelApp.SheetsInNewWorkbook := 1; 7.设置工作表名称 ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name := PName; 8.工作表初始化 Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum]; 9.工作表范围初始化 Range := Sheet.Range['A1:DL1'] ; 10.设置第2个工作表为活动工作表: ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值: ExcelApp.Cells[row, column].Value := '第一行第四列'; 或 Sheet.Cells[row, column] := ‘第一行第四列’; 2 清除第一行第四列单元格公式:

DELPHI中Format函数功能及用法详解

DELPHI中Format函数功能及用法详解DELPHI中Format函数功能及用法详解function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能:返回按指定方式格式化一个数组常量的字符形式 说明这个函数是Delphi中用得最多的函数,现在就列举几个例子以得到直观的理解 "%" [索引":"] ["-"] [宽度] ["." 摘要] 类型 它是以"%"开始,而以"类型"结束,"类型"表示一个具体的类型。中间是用来格式化"类型"的指令字符,是可选的。 总结一下Format的用法: -------------------------------------------------------------------------------------- Format('x=%d', [12]); //'x=12' //最普通 Format('x=%3d', [12]); //'x= 12' //指定宽度 Format('x=%f', [12.0]); //'x=12.00' //浮点数 Format('x=%.3f', [12.0]); //'x=12.000' //指定小数 Format('x=%8.2f'[12.0]) // 'x= 12.00' ; Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置 Format('x=%.5d', [12]); //'x=00012' //前面补充0 Format('x=%.5x', [12]); //'x=0000C' //十六进制 Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引 Format('x=%p', [nil]); //'x=00000000' //指针 Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法 Format('x=%%', []); //'x=%' //得到"%" S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串 -------------------------------------------------------------------------------------- ===================详细用法======================= 先来看看type,type可以是以下字符: d 十制数,表示一个整型值 u 和d一样是整型值,但它是无符号的,而如果它对应的值是负的,则返回时是一个2的32次方减去这个绝对值的数,如: Format('this is %u',[-2]); 返回的是:this is 4294967294

delphi笔记-内部函数参数

Delphi内部函数--

参数传递 自定义过程procedure p1(a:integer,var b:real,const c:string)a,b,c 为形式参数 调用过程p1(a1, b1, c1 ) a1,b1,c1为实际参数 传递数值 定义过程定义过程或函数时,在形参前不加保留字或加const Procedure swap1(a , b :integer) 或Procedure swap1(const a , b :integer) var c :integer begin c:=a;a:=b;b:=c; end;{a,b数值交换} 函数中用语句swap1(a1,b1)调用过程swap1(a , b :integer),实参a1,b1数值传递给形参a,b,然后a,b数值交换,但运算后实参a1,b1数值不变,不进行交换 传递地址 Procedure swap2(var a , b :integer) 或Procedure swap2(out a , b :integer) var c :integer 即定义过程或函数时,在形参前加保留字var或out begin begin c:=a;a:=b;b:=c; end;{a,b数值交换} 形参前加var后实参和形参公用内存地址,将实参的内存地址传递给形参,语句swap2(a2,b2)调用swap2(var a , b :integer)后内存中数值改变形参a,b数值交换,同时实参a2,b2的数值也交换

Delphi 参数作用范围 Project1 参数作用范围 从小到大:过程/函数级,单元级、程序级; 过程/函数级:在Function或Procedure内部定义的标示符,作用范围局限在该Function 或Procedure内,其它的Function或Procedure不能调用。局部变量 单元级:在每个单元的Implementation部分声明的标示符,作用范围包括该单元的所有Function和Procedure,其它Unit的Function和Procedure不能调用。单元全局变量 程序级:在每个单元的Interface部分声明的标示符,作用范围最大,可以被其它unit的Function和Procedure调用。程序全局变量 调用方法如下: 如果在Unit A中访问Unit B在Interface部分声明的变量VarofUnitB,首先在UnitA的Uses子句中加入UnitB,其次在访问VarOfUnitB时,加上限定UnitB.VarOfUnitB,又称限定标示符,语法格式如下: <单元名>.<标示符>

Delphi7基本函数

函数由一句或多句代码组成,可以实现某个特定的功能。使用函数可以使代码更加易读、易懂,加快编程速度及减少重复代码。过程与函数类似,过程与函数最重要的区别在于,过程没有返回值,而函数能有返回值。 在Delphi 7.0中,已为我们定义好了非常多的函数,大致分类有6种:数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。 在Delphi中调用函数,一般情况下可以直接使用函数即可,但由于有一些函数未包含在Uses中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;),所以需要我们手动添加单元。比如,MidStr函数就未包含在这些单元中,MidStr所属单元在StrUtils中,因此我们将StrUtils添加Uses中即可。 在本手册中,凡是未包含在默认列出的单元中的函数,都标明了其所属的单元,使用时应当注意。 一、数据类型转换函数 在我们编写程序当中,根据不同情况,会使用到多种数据类型。当要对不同的类型进行操作时,必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。 1.FloatToStr 功能说明:该函数用于将“浮点型”转换成“字符型”。 参考实例: Edit1.Text := FloatToStr(1.981); 2.IntToStr 功能说明:该函数用于将“整数型”转换成“字符型”。 参考实例: S := IntToStr(10);(注:S为String类型变量。) 3.IntToHex 功能说明:该函数用于将“十进制”转换成“十进制”。该函数有二个参数。第一个参数为要转换的十进制数据,第二个参数是指定使用多少位来显示十六进制数据。 参考实例: Edit1.Text := IntToHex(''100'', 2);

在Delphi中字符串查找 函数

在Delphi中字符串查找函数 Delphi提供的字符串函数里有一个Pos函数,它的定义是: 它的作用是在字符串S中查找字符串Substr,返回值是Substr在S中第一次出现的位置,如果没有找到,返回值为0。 使用pos函数来查找字符第一次出现的位置 var str1:string; i,j:integer; begin str1:='dsf4654f6ad' ; j:=pos('<',str1);//在字符串str1中查找"<" if j<>0 then //得到的j是字符串中出现的位置,是整型 showmessage('<'+'在第'+inttostr(j)+'个位置'); //第十个位置 end; =============================================== 首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 功能返回指针字符串Str2在Str1中第一个出现的地址 说明没有找到则返回空指针;StrPos('12345', '3') = '345' 参考 例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); =================================================== StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针;

StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针; StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针. //给你尝试一下,简单分隔一下吧。 program Project1; {$APPTYPE CONSOLE} uses SysUtils, Classes; function GetMainStrs(ATalks: string): TStrings; Var p1, p2, l2, l1: Integer; str: string; begin Result := TStringList.Create(); l1 := Length(':'); //分隔符的长度 l2 := Length(';'); //分隔符的长度 while(ATalks <> '') do begin p1 := Pos(':', ATalks); p2 := Pos(';', ATalks); if (p1>0) and (p2>0) then begin if (p1

Delphi Math单元函数

Delphi Math单元函数(2011-12-22 22:05:57)转载▼ 标签:杂谈分类:delphi 这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数 注意 1) 对于有些函数,这个单元中涉及的概念或常数由Earl F. Glynn (https://www.360docs.net/doc/a42260335.html,) 和Ray Lischner (https://www.360docs.net/doc/a42260335.html,)提供。 2) 所有的角度参数三角函数的结果都用弧度表示 3) 下列大部分的三角和对数程序直接的映射到Intel 80387 FPU 4) 浮点机指令、输入域、输出范围和错误处理主要由FPU 硬件决定 5) 汇编程序中的代码支持Pentium FPU 管线体系  常数 IEEE 浮点类型的范围, 包括非正规的 1) MinSingle = 1.5e-45; 最小Single数 2) MaxSingle = 3.4e+38; 最大Single数 3) MinDouble = 5.0e-324; 最小Double数 4) MaxDouble = 1.7e+308; 最大Double数 5) MinExtended = 3.4e-4932; 最小Extended数 6) MaxExtended = 1.1e+4932; 最大Extended数 7) MinComp = -9.223372036854775807e+18; 最小Comp数 8) MaxComp = 9.223372036854775807e+18; 最大Comp数 下列常数不应当被用于比较关系,仅仅用于分配。若要用于比较关系请使用IsNan 和IsInfinity 函数。(已提供在后面) 9) NaN = 0.0 / 0.0; 非数(*$EXTERNALSYM NaN*) (*$HPPEMIT 'static const Extended NaN = 0.0 / 0.0;'*) 10) Infinity = 1.0 / 0.0; 正无穷大(*$EXTERNALSYM Infinity*) (*$HPPEMIT 'static const Extended Infinity = 1.0 / 0.0;'*) 11) NegInfinity = -1.0 / 0.0; 负无穷大(*$EXTERNALSYM NegInfinity*) (*$HPPEMIT 'static const Extended NegInfinity = -1.0 / 0.0;'*) 一、三角函数 1) 函数ArcCos(const X: Extended): Extended; (IN: |X| <= 1 OUT: [0..PI] 弧度) 2) 函数ArcSin(const X: Extended): Extended; (IN: |X| <= 1 OUT: [-PI/2..PI/2] 弧度) 3) 函数ArcTan2(const Y, X: Extended): Extended; IN: |Y| < 2^64, |X| < 2^64, X <> 0 OUT: [-PI..PI] 弧度)。计算ArcTan(Y/X), 并且返回一个正确象限内的角度 4) 过程SinCos(const Theta: Extended; var Sin, Cos: Extended) register; SinCos:比分别调用Sin 和Cos 计算同一个角度快两倍 5) 函数Tan(const X: Extended): Extended; 6) 函数Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } 7) 函数Secant(const X: Extended): Extended; { 1 / cos(X) } 8) 函数Cosecant(const X: Extended): Extended; { 1 / sin(X) } 9) 函数Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } 二、角度单位换算程序 1) 函数RadToDeg(const Radians: Extended): Extended; { 度数:= 弧度* 180 / PI } 2) 函数RadToGrad(const Radians: Extended): Extended; { 梯度:= 弧度* 200 / PI }

相关主题
相关文档
最新文档