DELPHI
文章平均质量分 80
小新新_88
这个作者很懒,什么都没留下…
展开
-
改进delphi中的RoundTo函数
改进delphi中的RoundTo函数 delphi 7中自带数值四舍五入函数RoundTo(AVlaue, ADigit)存在一些不确定性情况,并非像帮助或者网络说的四舍六入五凑偶的规则,不信可以随便测试几个数据就会发现与你预期的不一样,比如33.015与33.035,修约2位小数,运行结果却是33.01与33.03。这主要是与浮点数的精度有关(有兴趣可以了解一下浮点数的存储结构,转载 2014-11-13 09:53:12 · 1036 阅读 · 0 评论 -
assignfile用法
assignfile用法1.文本文件新建和读取使用在窗体放一个按钮,点击输入procedure TForm1.Button1Click(Sender: TObject);varbat : textfile;beginassignfile(bat, 'c:\123.txt'); //新建并打开文件rewrite(bat)转载 2016-01-25 16:38:58 · 3046 阅读 · 0 评论 -
Delphi中TStringList类常用属性方法详解
//TStringList 常用方法与属性:var List: TStringList; i:Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1);转载 2016-01-26 09:20:06 · 639 阅读 · 0 评论 -
Delphi 常用控件之TlistView总结
TlistView组件功能: (1) TListView 控件可以用来显示各项带图标的列表,包括大图标和小图标的;也可以用来显示带有子项的列表,Windows操作系统的资源管理器中文件夹窗口就是最好的应用例子,就是我们打开"我的电脑"后能够看到各个盘符的界面( 2) TListView控件基本能实现和DBGrid控件一样的功能,很多时候根据程序需要可以完全用TListView来替换DB转载 2016-01-28 16:56:49 · 581 阅读 · 0 评论 -
Delphi 动态与静态调用DLL
摘要:本文阐述了 Windows 环境下动态链接库的概念和特点,对静态调用和动态调用两种调用方式作出了比较,并给出了 Delphi 中应用动态链接库的实例。 一、动态链接库的概念 动态链接库( Dynamic Link Library ,缩写为 DLL )是一个可以被其它应用程序共享的程序模块,其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展转载 2016-01-29 10:35:34 · 446 阅读 · 0 评论 -
delphi 如何比较两个二维数组是否相等
一句话: 用 CompareMem 对比内存即可.--------------------------------------------------------------------------------{对比静态数组}procedure TForm1.Button1Click(Sender: TObject);vararr1: array[0..3] of An转载 2016-03-02 13:51:55 · 1527 阅读 · 0 评论 -
动态数组的使用
动态数组的使用//例1:varStrArr: array of String; //动态数组定义时不与维数beginSetLength(StrArr,6); //分配6个元素位置: 0-5StrArr[0] := '万一'; //动态数组的下界是 0ShowMessage(StrArr[0]); //分配空间后和静态数组一样使用StrArr := nil; //一般转载 2016-03-02 13:59:13 · 386 阅读 · 0 评论 -
DELPHI字符串、数组操作函数
1.【Copy】 功能说明:该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度( 即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。 参考实例: var S: String; MyStr: String; // 保存新的字符串转载 2016-03-02 14:06:45 · 2866 阅读 · 0 评论 -
TDBGrid 数据导入到execle
procedure TFxxlook.savetoexcel(dbname:TDBGrid);var excelapp:Variant; page:Variant; i,j:Integer; savedialog:TSaveDialog; BM:TBookmark; strsavefile:string; begin if dbname.Da转载 2016-02-02 08:14:46 · 591 阅读 · 0 评论 -
當前日期為第几周
SQL:select to_char(TO_DATE('20110101', 'YYYYMMDD'), 'yyyyiw') as week, --oracle求当年的第几周 to_char(TO_DATE('20110101', 'YYYYMMDD'), 'yyyyww') as week2, --oracle求当年的第几周 to_char(TO_DATE('201原创 2016-03-29 16:49:23 · 385 阅读 · 0 评论 -
Delphi中的布尔类型
Delphi中定义了四种布尔类型:Boolean,ByteBool,WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的,一般情况下建议使用Boolean类型。这四种类型的布尔值占用内存的数量如下:Boolean 1 ByteByteBool 1 ByteWordBool 2 Bytes(1 Word)LongBool 4 Bytes转载 2016-05-31 11:00:54 · 1579 阅读 · 0 评论 -
Delphi对Excel的所有操作
学完这个你就成为excel高手了!(Delphi对Excel的所有操作)逐个试试! 一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visible转载 2016-02-01 16:16:56 · 5130 阅读 · 0 评论 -
PlaySound函数
单元: MMSystemPlaySound函数的声明为: BOOL PlaySound(LPCSTR pszSound, HMODULEhmod,DWORDfdwSound); 参数pszSound是指定了要播放声音的字符串,该参数可以是WAVE文件的名字,或是WAV资源的名字,或是内存中声音数据的指针,或是在系统注册表WIN.INI中定义的系转载 2016-10-28 16:45:10 · 1495 阅读 · 0 评论 -
Delphi string 自動分割為數組
var inputList: TStrings;text:Stringtext:=GSP*PL*0001*123*456 inputList := TStringList.Create; inputList.Delimiter:='*' ; inputList.DelimitedText:=STRINGREPLACE(原创 2017-08-18 14:37:33 · 434 阅读 · 0 评论 -
Delphi 動態創建控件,賦值,使用
uses 中定義:type TMyComponent = class(TComponent) public item1, item2, item3, item4, item5, item6: string; constructor Create(Owner1: TComponent; s1: string); overload; const原创 2017-08-18 14:46:09 · 626 阅读 · 0 评论 -
常用delphi funtion
DELPHI 获取本月 的第一天 和 最后一天1、USER :DateUtils2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可;1234567procedureTForm1.btn1Click(Sender: TObject);begin mmo1原创 2016-01-25 11:31:57 · 399 阅读 · 0 评论 -
当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells)
当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells)---作者:TTT日期:20090306--- TAdvStringGrid是Delphi编程中常用的控件,经常用于统计数据和设计比较复杂的表格。控件功能很强大,但相应的使用也很复杂! 以下是我整理出的常用技巧,有一部分是我自己的经验,有一部转载 2016-01-18 13:12:58 · 4201 阅读 · 0 评论 -
Delphi中TStringList类常用属性方法详解
Delphi中TStringList类常用属性方法详解//TStringList 常用方法与属性:var List: TStringList; i:Integer;begin List := TStringList.Create; List.Add('Strings1');转载 2015-09-04 17:01:02 · 337 阅读 · 0 评论 -
Oracle to_char 日期转换字符串
Oracle 左右全连接 Map.EntryOracle to_char 日期转换字符串 2010-01-05 17:04:11| 分类:PL/SQL | 标签:|举报|字号大中小 订阅别处挖过来的,真是太长了,以后要用的时候再看吧1》以12小时制显示 SQL>select to_char转载 2014-11-18 16:47:07 · 418 阅读 · 0 评论 -
tnsnames.ora
tnsnames.ora 2013-11-28 11:54:50分类: Oraclelistener.ora、 tnsnames.ora和sqlnet.ora这3个文件是关系oracle网络配置的3个主要文件,其中listener.ora是和数据库服务器端 相关,而tnsnames.ora和sqlnet.ora这2个文件不仅仅关系到服务器端,主要的还是和客户端关系紧密。检查客户端oracle网络的转载 2014-12-01 13:54:00 · 399 阅读 · 0 评论 -
delphi Format格式化函数
delphi Format格式化函数Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有转载 2014-12-04 16:47:10 · 389 阅读 · 0 评论 -
ASCII码表 & ASCII码转换函数
Ord函数序数函数,函数返回值为字符在ASCII码中的序号。如:ord(‘a’)=97,ord(‘0’)=48,ord(true)=1 。ASCII码表ASCII值控制字符ASCII值控制字符ASCII值控制字符ASCII值控制字符0转载 2014-12-04 14:50:42 · 10193 阅读 · 0 评论 -
Format() 函数用于将数据转换为格式化的字符串输出
Format() 函数用于将数据转换为格式化的字符串输出 举例如下; int x = 123; CString str; str.Format("%d", x); // 123 str.Format("%6d",转载 2014-12-04 14:53:38 · 1054 阅读 · 0 评论 -
inc有两种用法
inc有两种用法:一个是inc(integer),就是加1比如i := 100;inc(i);就是i变为101另一个是inc(integer,integer)就是加n比如i:=100;inc(i,50);就是i变成150---------------------------------Dec是递减函数i:=100;dec(i)转载 2015-04-23 16:48:58 · 3346 阅读 · 0 评论 -
Delphi 隐藏任务栏
procedure Tform1.Button1Click(Sender: TObject);var wndHandle: THandle; //用于存储指定窗口的句柄 wndClass: array[0..50] of Char; //用于存储类名begin strPCopy(@wndClass[0], 'Shell_TrayWnd'); //获取任务栏类名 wndHandl转载 2015-04-14 16:28:28 · 551 阅读 · 0 评论 -
delphi编程 界面全屏代码(多种方法)
delphi编程 界面全屏代码(多种方法) (2013-02-17 11:47:40)转载▼标签: it 编程分类: 编程相关BorderStyle:=bsNone;SetBounds(0,0,Screen.Width,Screen.Height);BorderStyle := bsNone转载 2015-04-14 15:59:19 · 1113 阅读 · 0 评论 -
Delphi屏蔽指定热键
//以下代码在Delphi7 + XP SP3下测试通过//button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;转载 2015-04-15 18:00:48 · 2540 阅读 · 0 评论 -
Delphi 隐藏任务栏屏蔽热键
Delphi 隐藏任务栏屏蔽热键 2008-08-05 16:39:02| 分类: Delphi 学习 | 标签:delphi 隐藏任务栏屏蔽热键 |举报|字号 订阅在自己的程序中将任务栏隐藏起来,并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键,也是很有趣的。要实现它们比较容易,但千万别忘了恢复正常,另外,本例中使用了3个AP转载 2015-04-15 16:37:56 · 762 阅读 · 0 评论 -
delphi 向Windows窗口发送Alt组合键的问题
但就是没有很好解决问题。之前找到一个能正确发送的code:(Alt+A)PostMessage(hWnd,WM_SYSKEYDOWN,VK_MENU,0);PostMessage(hWnd,WM_SYSKEYDOWN,0x41,0);Sleep(50);PostMessage(hWnd,WM_SYSKEYUP,0x41,0);PostMessage(转载 2015-04-15 18:00:05 · 1497 阅读 · 0 评论 -
Oracle菜鸟之grant授权
Oracle菜鸟之grant授权2014-08-02 0 个评论 来源:Simpleness的专栏 收藏 我要投稿1、给数据库用户授权(对象为用户表)GRANT privilege[, ...] ON object[, ...] TO { PUBLIC | GROUP group| username}privilege: select转载 2015-06-02 09:37:08 · 795 阅读 · 0 评论 -
delphi中exit,abort,break,continue 的区别
delphi中exit,abort,break,continue 的区别delphi中表示跳出的有break,continue, exit,abort, halt, runerror。1、break 强制退出循环(只能放在循环中),用于从For语句,while语句或repeat语句中强制退出。2、continue 用于从For语句,while语句或repeat语句强行结转载 2015-07-02 09:16:34 · 370 阅读 · 0 评论 -
Delphi 文件处理
Delphi 文件处理(2)1. 文件管理类函数判断文件是否存在 FileExists 判断文件夹是否存在 DirectoryExists删除文件 DeleteFile; Windows.DeleteFile 删除文件夹 RemoveDir; RemoveDirectory获取当转载 2015-09-01 19:54:57 · 365 阅读 · 0 评论