delphi
luky_dog
数据分析、大数据处理
展开
-
beep 音乐
windows.beep(523,500); //1 windows.beep(587,500); //2 windows.beep(659,500); //3 windows.beep(698,500); // 4 windows.beep(784,500); // 5 wi...原创 2009-09-23 12:55:26 · 182 阅读 · 0 评论 -
关于 Delphi 中流的使用(3) 通过内存流读取文件
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TB...原创 2011-01-09 15:57:48 · 182 阅读 · 0 评论 -
关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:TFileStream: 文件流TStringStream: 字符串流TMemoryStream: 内存流TResourceStream: 资源文件流THandleStream: 是 TFileStream 的父类、TStream 的子类TCustomMemoryStream: 是 TMemoryStre...原创 2011-01-09 15:56:27 · 376 阅读 · 0 评论 -
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
前言:所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream. 举个例子: (建立新...原创 2011-01-09 15:54:15 · 252 阅读 · 0 评论 -
无类型文件读写
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TB...原创 2011-01-09 15:48:27 · 149 阅读 · 0 评论 -
结构化文件存取
纲要:AssignFile: 关联Rewrite: 创建并打开一个新文件, 如已存在则覆盖Reset: 打开已存在的文件; 追加也要用它先打开, 然后再移动指针; Append 是文本文件专用的CloseFile: 关闭FileSize: 记录数FilePos: 返回文件的当前位置Seek: 把文件指针移到指定位置(只用于结构化文件)Eof: 文件尾Read: 读Write: 写另外: 包含长字符...原创 2011-01-09 15:47:15 · 98 阅读 · 0 评论 -
文本文件读写
前言:Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同,不能计算出给定行在文件中的确切位置,因而只能顺序地读写。文本文件只能单独为读或写而打开,在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤:1.文件变量与文件名关联;2.初始化读写。1.文件变量与文件名关联: AssignFile(Var...原创 2011-01-09 15:45:28 · 70 阅读 · 0 评论 -
ini 文件操作
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3...原创 2011-01-09 15:42:12 · 93 阅读 · 0 评论 -
memo ctrl+a
在按键事件中处理全选Memo1.SelectAll;Memo1.SetFocus;复制就直接ctrl+c吧原创 2011-01-09 15:25:23 · 124 阅读 · 0 评论 -
单元文件结构
unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束}implementation {...原创 2011-01-09 15:13:48 · 82 阅读 · 0 评论 -
Delphi初学者应小心的六大陷阱
初学DelphiI的人,由于各种原因,对DelphiI中的许多概念不能很好的理解,并由此带来了许多的问题,或者是开发出的程序稳性不好,一会能运行,一会又不能运行;或者是遇到一个问题久思不得其解,还误以为是DelphiI自身的BUG,等等这些,浪费了我们大量的时间、精力,也影响了我们的开发效率。 那么如何才能避免这些错误了,尽量少走弯路了?笔者从事DelphiI开发多年,下面就把我的经验总结介绍给...原创 2011-01-09 15:03:12 · 77 阅读 · 0 评论 -
格式化函数
var s: string;begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 } s := ...原创 2011-01-09 10:04:24 · 169 阅读 · 0 评论 -
Delphi 的类型与指针
先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见; 同时希望得到指正.Delphi 的指针分为 "类型指针" 和 "无类型指针" 两类.Delphi 中的类型, 常用的也得有几百个, 我们可以给每种类型定义相应的类型指针.其实 Delphi 已经为很多类型预定义了指针, 譬如数据类型: Integer 有对应的 PInteger;Char 有对应的 PChar;string 有对应的...原创 2011-01-03 22:53:15 · 115 阅读 · 0 评论 -
关于 Lo、Hi、LoWord、HiWord
Cardinal 是 4 字节无符号的整型, 先看一个例数:Cardinal 例数:4277991664按字节划分:第四字节第三字节第二字节第一字节二进制:11111110111111001111100011110000十六进制:FEFCF8F0十进制:254252248240按双字节划分:高两位低两...原创 2011-01-03 22:46:22 · 174 阅读 · 0 评论 -
Delphi中票据凭证的精确打印
一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么,有没有简单有效而又灵活的方法实现上述功能呢? 二、基本思路 分析上述单据的特征,可以发现:此类打印输出的信息一般比较简...2010-04-01 17:25:57 · 78 阅读 · 0 评论 -
delphi中第三方控件的安装方法 --转
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出现错误。也正是因为没有源码,给使用者带来了不便,那就是一旦Delphi版本升级,此组件就不能再使用了,当然有的作者给出了几种版本的DCU文件,用户根据需要选择使用。这样的组件的安装方法是:在Component菜单中...2009-07-12 10:40:00 · 86 阅读 · 0 评论 -
delphi 需要注意的地方
1.类的概念 如:在窗体Form1中设置属性: self.caption = 'my form';2.窗体的close和destory事件 这两个方法是不一样的,close只是隐藏了窗体,内存不释放。而destory是撤底的释放3.string和shortstring的区别 如果你知道你要用的字符串的...2009-05-26 14:29:00 · 71 阅读 · 0 评论 -
关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; {需要添加两个 Memo 用于显示}...原创 2011-01-09 15:58:52 · 127 阅读 · 0 评论