06 2013 档案
摘要：with AQuery1 dobegin close; //关闭数据库连接 sql.clear; //清除上次使用的sql语句 sql.add('select * from tab1'); //设置本次使用的sql语句 open; //打开数据库连接并执行查询语句 first; //移动到第一条记录end;
阅读全文
摘要：with…do语句用来指定一个块中的字段（记录的或者对象的）、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式：varButton: TButton;beginButton := TButton.Create(Self);Button.Parent := Self;Button.Left := 50;Button.Top := 50;……end;每行都写一个Button是否让你感觉厌烦。Object Pascal提供它特有的with…do语句，可以帮你消除这个烦恼。上面的代码可以写为：varButton: TButton;beginButton := TButt
阅读全文
摘要：inherited就是调用祖先类的函数，如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数 Create(AName:string);子类有个函数 Create(AName:string;AComponent:TObject);override;那么子类的Create函数内就可以这样调用祖先类：procedure TAClass.Create(AName:string;AComponent:TObject);begin Inherited Create(AName);end;转自：http://zhidao.baidu.co
阅读全文
摘要：inherited就是调用祖先类的函数，如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数 Create(AName:string);子类有个函数 Create(AName:string;AComponent:TObject);override;那么子类的Create函数内就可以这样调用祖先类：procedure TAClass.Create(AName:string;AComponent:TObject);begin Inherited Create(AName);end;InheritedKeywordUsed t...
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObje...
阅读全文
摘要：type TRec1 = record name: string[12]; age: Word; end; TRec2 = record name: string[12]; age: Word; end;var RecA,RecB: TRec1; RecX,RecY: TRec2;procedure TForm1.Button1Click(Sender: TObject);begin {给 RecA 赋值} RecA.name := '张三'; RecA.age := 18; {复制 RecA 给 RecB} RecB := RecA; {现在 RecB 的值和 RecA 一样
阅读全文
摘要：type TRec1 = record i: Integer; w: Word; end; TRec2 = packed record {压缩结构: 牺牲效率, 减小尺寸} i: Integer; w: Word; end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToStr(SizeOf(TRec1))); {8} ShowMessage(IntToStr(SizeOf(TRec2))); {6}end;
阅读全文
摘要：Chr //将一个有序数据转换为一个 ANSI 字符Ord //将一个有序类型值转换为它的序号Round //转换一个实型值为四舍五入后的整型值Trunc //转换一个实型值为小数截断后的整型值Int //返回浮点数的整数部分IntToStr //将数值转换为字符串IntToHex //将数值转换为十六进制数字符串StrToInt //将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef //将字符串转换为一个整数，如字符串不合法返回一个缺省值Val //将字符串转换为一个数字（传统 Turbo Pascal 例程用于向后兼容）Str //将数字转换为格式化..
阅读全文
摘要：//Byteprocedure TForm1.Button1Click(Sender: TObject);var x,y: Byte;begin x := MAXBYTE; //MAXBYTE是常数255 y := not x; //y 的值是 0 x := 5; y := not x; //y 的值是 250 ShowMessage(IntToStr(y));end;//Wordprocedure TForm1.Button1Click(Sender: TObject);var x,y: Word;begin x := MAXWORD; //MAXBYTE是常数65535 y := not
阅读全文
摘要：'BORLAND' { BORLAND }'You''ll see' { You'll see }'''' { ' }'' { 空串 }' ' { 空格 }#89#111#117 { You }#89'Y'#89 { YYY }#89 + 'Y' + #89 { YYY }#13#10 { 换行 }
阅读全文
摘要：//结构体的比较普遍的两用法，具体还是得靠多看例子，帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了，i并无实际意义。//TtextRecord作为一个字符串的形式存在内存
阅读全文
摘要：做过CC1020的苦逼前人告诉你（分拿来）1.灵敏度不是带着天线无线来测的，要用向量信号源（ESG），通过PN9来测，所以你测到的不是灵敏度，但是远的那块板子的灵敏度肯定比较好。2.发射和接收频率调准了没？记住这是射频，几个ppm的偏差就洗白白了。3.发射功率找频谱仪来验证测试（不要找功率计，原因自己先想一下）4.芯片底部的接地焊盘一定要焊好，射频接地不良，噪声是非常大的，很影响接收。5.另外仔细核对接收通路上各元件的值是否安装正确，不放心的就拆了换，如果使用了线绕电感，特别注意是否焊好，一定要排除虚焊。6.有网络分析仪的，测一下接收通路的S11参数，看调好没有。7.如果使用了SPDT，注意S
阅读全文
摘要：Delphi if else 用法其实delphi中的IF语句和VB中的语句有点相像，都是IF .... THEN...不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧，呵呵。下边写几个IF语句的例子"：1、IF.. THENif 1=1 thenbegin//这里写执行语句end;2、IF..ELSEif 1=1 thenbegin..............end //记住这里不能加分号。elsebegin.....................end; //这里需要加分号3、IF...ELSE IF..if 1=1 thenb
阅读全文
摘要：关于动态创建PopupMenu的问题http://topic.csdn.net/t/20040825/09/3306672.html动态创建菜单 var mmiTemp:TMenuItem; begin mmiTemp:=TMenuItem.Create(); mmiTemp.Caption:= '标题 ';// mmiTemp.OnClick:= actLoadExecute;//设定action PopupMenu2.Add(mmiTemp);//加入到上层的菜单 end;其实我们可以使用一种更快的方法达到同样的功能...
阅读全文
摘要：位于Standard选项卡上，它是对EDIT控件的扩展，可以对多行文本进行显示、输入和编辑.Lines属性：该属性实际上为TStrings类型的对象，用来存放Memo对象的文本TStrings有一个缺省的属性Strings，它的定义为：property strings[index:integer]:string;其中，Index表示字符串的索引值，从0开始，到TStrings对象中字符串的最大行数减1为止。TStrings的主要方法：procedure add(const s:string);//在尾部添加一个字符串procedure delete(index:integer);//删除索引值
阅读全文
摘要：本周早些时候，几位世界上最出色的业界领袖在LinkedIn上给2013年的应届毕业生们提供了一些真知灼见。他们在这些或真情实感满溢、或言简意赅、或说教意味颇浓的毕业典礼演讲中，讲述了自己在起步阶段时希望从他人那里获得的忠告。去年秋天，LinkedIn启动了“LinkedIn影响力人物”项目，允许LinkedIn的用户关注一群精英思想领袖。这些领袖经常在该平台分享感悟。现在，这群“影响力人物”的数量已经超过250人，其中包括巴拉克·奥巴马（Barack Obama）总统、梅格·惠特曼（Meg Whitman）、大卫 卡梅隆（David Cameron）、杰夫·伊梅尔
阅读全文
摘要：Delphi ListView基本用法大全//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';ListView1.Columns.Items[1].Caption:='type';ListView1.Columns.Items[2].Caption:='title';ListView1.
阅读全文
摘要：邻道干扰邻道干扰是指在两个相邻或相近的波道，所传输的信号超过了波道的宽度，从而对临近波道所传播信号造成的干扰。1．由紧随的若干波道的寄生辐射造成。包括发信边带扩展、边带噪声、杂散辐射等。2．移动通信网内一组空间离散的邻近工作频道引入的干扰。由紧随的若干频道的寄生辐射造成。发信边带扩展:发信频谱超出了限定的宽度，成为落到邻频道的带外辐射干扰。由发信波道滤波器的带外抑制能力决定。只有当移动台靠近基站时，移动台的寄生辐射会对正在接收微弱信号的邻道基站接收机产生干扰。其他情况下干扰并不严重。发信机边带噪声:存在于发信载频两侧,频谱很宽。大小决定于振荡器、倍频器的噪声、IDC电路和调制电路的噪声等。杂散
阅读全文
摘要：Windows 是多任务的操作系统, 一个任务就是一个应用(应用程序)、一个应用占一个进程; 在一个进程里面, 又可以运行多个线程(所以就有了很多"多线程编程"的话题).对 Win32 来讲, 系统给每个进程 4GB 的地址空间:低端 2GB($00000000 - $7FFFFFFF) 给用户支配;高端 2GB($80000000 - $FFFFFFFF) 留给系统使用.文件或程序要调入内存才能工作, 先看看我们的内存到底有多大吧.在系统盘根目录下有个 pagefile.sys 文件, 这就是我们的 "虚拟内存"(虚拟内存是以文件的形式存在的). 把
阅读全文
摘要：目前对钩子的理解:譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A; 首先发现这些事件的不是窗口, 而是系统!然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, 你准备怎么办? 或者是系统告诉窗口: 喂! 有人向你家里扔砖头了, 不信你看看, 那块砖头是 A. 这时窗口的对有些事件会忽略、对有些事件会做出反应:譬如, 可能对鼠标单击事件忽略, 窗口想: 你单击我不要紧, 累死你我不负责; 但一旦谁要双击我, 我会马上行动, 给你点颜色瞧瞧!这里窗口准备要采取的行动, 就是我们提前写好的事件.用 Windows 的话说, 窗口的事件就是系统发送给窗口的消息;
阅读全文
摘要：编辑本段钩子函数作用在某种操作后弹出的关于钩子函数的界面WINDOWS的钩子函数可以认为是WINDOWS的主要特性之一。利用它们，您可以捕捉您自己进程或其它进程发生的事件。通过“钩挂”，您可以给WINDOWS一个处理或过滤事件的回调函数，该函数也叫做“钩子函数”，当每次发生您感兴趣的事件时，WINDOWS都将调用该函数。类型一共有两种类型的钩子：局部的和远程的。局部钩子仅钩挂您自己进程的事件。远程的钩子还可以将钩挂其它进程发生的事件。远程的钩子又有两种：钩子分两种, 一种是系统级的全局钩子; 一种是线程级的钩子.全局钩子函数需要定义在 DLL 中, 线程级的钩子开始比较简单.其实钩子函数就三个
阅读全文
摘要：Delphi 的属性太复杂了, 先换换思路, 再继续学习.程序需要的内存空间分为 heap(堆) 和 stack(栈);heap 是自由存储区, stack 是自动存储区;使用 heap 需要手动申请、手动释放, stack 是自动申请、自动释放;使用 heap 时, 如果只申请不释放, 就会发生"内存泄露";不需要申请和释放空间的元素, 譬如变量、结构(record)等, 是存与 stack(栈);反之如需要 Create 和 Free 的对象、需要 GetMem 和 FreeMem 的指针等, 则是存于 heap(堆);stack 比 heap 快一点点.
阅读全文
摘要：分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号64位Byte0 .. 2551无符号8位Word0 .. 655352无符号16位Longword0 .. 42949672954无符号32位字符AnsiChar(Char)ANSI字符集8位Wide
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedur
阅读全文
摘要：TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:TFileStream: 文件流TStringStream: 字符串流TMemoryStream: 内存流TResourceStream: 资源文件流THandleStream: 是 TFileStream 的父类、TStream 的子类TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类与流相关的常用类还有: TReader、TWriter、TCompressionStream、TDecompressionStr
阅读全文
摘要：SX1212是SEMTECH推出的一款超低功耗的单芯片无线芯片，频率范围从300MHz到510MHz。SX1212经过优化具有非常低的接收功耗，典型接收电流为2.6mA, 远小于同类收发器的接收电流。工作电压为2.1-3.6V,最大发射功率+12.5dBm, SX1212集成度非常高，其包含了射频功能和逻辑控制功能的集成电路，内部集成压控振荡器、锁相环电路、功率放大电路、低噪声放大电路、调制解调电路、变频器、中放电路等。此外它整合了基带调制解调器的数据传输速率高达150Kbps数据处理功能包括一个64字节的FIFO，包处理，自动CRC生成和数据白化。它的高度集成的架构允许最少的外部元件数量，同
阅读全文
摘要：前言:所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 LoadFromStream; 写入主要用 SaveToStream. 举个例子: (建立新工程, 添加两个 Memo、两个 Button) -----------------------------------------------------------------
阅读全文
摘要：有一种亲切叫常德话。 有种亲人叫嘎嘎， 有种亲戚叫幺幺， 有种潇洒叫撑土， 有种舒服叫杀隐， 有种感觉叫作瓦 有种玩笑叫霍懒信， 有种较劲叫斗霸 有种开始叫嘎时， 有种智商叫核宝， 有种骄傲叫得斜 有种精神叫霸 蛮， 有种温度叫握人 有种倒霉叫背时， 有种小鱼叫胖皮 有种饮食叫七饭， 有种辛苦叫七亏， 有种不雅叫打挑咔 有种摔跤叫搭高儿， 有种着急叫嘎卵哒 有种感谢叫劳慰哒， 有种评价叫没得庭 有种餐具叫挑挑儿， 有种动物叫耐克马， 有种干净叫好朔里 有种鞋子叫萨萨板
阅读全文
摘要：前年的春节，我去参加了高中同学毕业后的第一次聚会，聚会后一位因事无缘参加的同学问我：“咱们同学里谁混得最好？”这个问题着实让我愣了一下，同学中有自由职业者、有自己办企业的老板、有打工的职业经理、有专业领域的技术专家、有政府部局委办所等部门的干部、有农民、工人、司机、医生、银行职员等等，但到底谁算混得好呢？该以何指标衡量来回答这个问题，我反问提问者，他也一愣，笑了说“也是，是不好回答。”在我们心里，出头露面、经常被别人求着办事、有下属被支配、有支配公家财务的权力、有足够的钱花、有较高的学历、享受过别人很少享受的东西（如出国、被高级人物接见）都是让人艳羡的事情，仔细分析一下，你会发现，其实这些所谓
阅读全文
摘要：这些日子我一直在写一个实时操作系统内核，已有小成了，等写完我会全部公开，希望能够为国内IT的发展尽自己一份微薄的力量。最近看到很多学生朋友和我当年一样没有方向，所以把我的经历写出来与大家共勉，希望能给刚入行的朋友们一点点帮助。一转眼我在IT行业学习工作已经七年多了，这期间我做过网页，写过MIS、数据库，应用程序，做过通信软件、硬件驱动、协议栈，到现在做操作系统内核和IC相关开发，这中间走了很多弯路，也吃了不少苦。我上的是一个三流的高校，就连同一个城市的人多数都不知道。因为学校不好也就没有指望能靠学校名气找一个好工作。所有的希望都寄托在自己的努力上了，大一开学前的假期我就开始了学习，记得我买..
阅读全文
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Send
阅读全文
摘要：准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Tim
阅读全文
浙公网安备 33010602011771号