摘要：
//通过 DLL Wizard 建立：library TestDLL;uses SysUtils, Classes, Dialogs;{$R *.res}//建立过程procedure Test;begin ShowMessage('TestDLL.Test');end;//输出exports Test;beginend.//在其他工程调用，如果不在一个工程组，需要在相同目录下、System32下或指定路径；//声明可以在实现区或接口区，这里的函数名要一致，甚至大小写。//调用测试：procedure Test; external 'TestDLL.dll';p 阅读全文
摘要：
《天拓原创，关于车载电台天线的安装思路》关于电台天线安装的大思路方案有大体上6种：1）尾门门缝夹边安装天线。需要配置“过门馈线”，案例常见于日系车辆。此方案优点是比较酷，好看。可以用长天线，不怕一般的进车库限高。2）车顶吸盘安装，，优点是车顶信号好，方便，防盗（离开车时间久，可以随手把吸盘和天线收到车内）缺点是不能用太高的天线，有时候进出低矮车库，需要收起天线来3）备胎架安装，，可以用备胎架夹边，把天线装在备胎架上，很酷，信号也不错4）车顶行李架安装夹边，使用行李架夹边，车顶信号好，酷，夹边带放倒旋钮，可以轻松将天线放平。5），前保险杠安装天线，优点是比较酷，可以装超长的天线，可以把天线当做“ 阅读全文
摘要：
在Zigbee中信标帧是实现网络中设备的同步工作和休眠的，这个信标针是由协调器发出的，一旦节点收到信标帧后就按协调器规定的加入网络，并按协调器规定的时间间隔发送接收数据。有时信标帧可能是一个公共时间时隔，在这个间隔中接收到信标帧的设备可以一起竞争加入网络与协调器进行通信。 阅读全文
摘要：
举例:var ss,s: string;begin ss := 'Delphi'; s := UpperCase(ss); ShowMessage(s); //DELPHI s := LowerCase(ss); ShowMessage(s); //delphiend; 阅读全文
摘要：
举例:--------------------------------------------------------------------------------var ss,s: string;begin ss := '2007-2008'; s := StringReplace(ss,'00','x',[rfReplaceAll]); ShowMessage(s); //2x7-2x8 s := StringReplace(ss,'00','x',[rfIgnoreCase]); ShowMessage(s 阅读全文
摘要：
举例:--------------------------------------------------------------------------------var ss,s: string;begin ss := ' Delphi '; s := Trim(ss); {删除两边空格} ShowMessage('^' + s + '$'); {^Delphi$} s := TrimLeft(ss); {删除左空格} ShowMessage('^' + s + '$'); {^Delphi $} s := T 阅读全文
摘要：
该函数不区分大小写, 举例:--------------------------------------------------------------------------------var s: string; i: Integer;begin s := 'CodeDear Delphi'; i := LastDelimiter('Del',s); ShowMessage(IntToStr(i)); {12}end;----------------------------------------------------------------------- 阅读全文
摘要：
var s: string; b: Boolean;begin s := 'CodeDear Delphi'; b := IsDelimiter('de', s, 3); ShowMessage(BoolToStr(b)); {返回 -1, 就是 True}end;说明： b := IsDelimiter('de', s, 4); 返回也是{返回 -1, 就是 True} end; 其它为0 阅读全文
摘要：
TStringReader 比 TStringWriter 的方法少得多, 分别可按: 字符、行或全部读取; 读取字符时得到的是字符编码, 全部或按行读取得到是字符串, 也可读取到字符数组.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Bu... 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var P: Pointer;procedure TForm1.Button1Click(Sen.. 阅读全文