做了个多线程的测试Demo
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Unit2;type
TForm1 = class(TForm)
lbl1: TLabel;
btn1: TB...
分类：
编程语言 时间：
2015-04-05 14:42:14
阅读次数：
194
unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V.....
分类：
其他好文 时间：
2015-04-02 01:05:02
阅读次数：
182
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Butto...
分类：
其他好文 时间：
2015-03-14 18:23:32
阅读次数：
119
计划一个简略单纯的文本编纂器，具有建立、编纂、生存平凡文本文件的功能。unit U nit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCt...
取MAC地址 （含多网卡）,最好的方法，支持Vista,Win7unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,WinSock, StdCtrls;Co...
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyCacl = class(TObject) pu...
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ...
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExcelWithOdbc,StdCtrls,DB,ADODB;typeTForm1=class(TForm)Button1:TButton;ExcelWithOdbc1:TExcelWithOdbc;ADOQuery1:TADOQuery;procedureButton1Click(Sender:TObject);..
分类：
数据库 时间：
2015-02-26 18:46:45
阅读次数：
166
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,OleCtrls,MSCommLib_TLB,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Panel1:TPanel;Panel2:TPanel;CheckBox1:TCheckBox;MSComm:TMSComm;Memo1:TMemo;edtcomm:TEdit;Label1..
分类：
其他好文 时间：
2015-02-14 01:24:23
阅读次数：
197
Variant V; String mystr; if (TVarData(V).VType == varEmpty) ListBox1->Items->Add(L"Variants start ???? empty."); VarClear(V); TVarData(V).VType =...
分类：
其他好文 时间：
2015-02-05 18:08:52
阅读次数：
169
