摘要：
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 阅读全文