yangtang_newton的专栏

Unit datatool;InterfaceUses  Windows, Messages, SysUtils, Variants, Graphics, Classes, Controls, Forms,  Dialogs, ComCtrls, DBGrids, DBGridEhImpExp,DB, DBGridEh;Type  datatools = Class(TObject)  Publi

Unit tool;InterfaceUses  Windows, Messages, SysUtils, Variants, Graphics, Classes, Controls, Forms,  Dialogs, ComCtrls, comobj, StdCtrls, Tlhelp32;type userarray=array of string;Type  to

082|reset|||082|setclient|172.16.1.82|00:0c:29:54:ff:21|082|check|open||082|auth||111|;gascode=082 (1)  delphi客户端发送：csConnect（）中       tmpstr := ipcode + '|setclient|' + ip + '|' + mac +

http://www.cnblogs.com/del/archive/2009/02/27/993840.htmlWebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('...');

1、TChart Hello world放一个控件到窗体上，然后写代码加入一个折线数据序列：varSeries: TLineSeries;beginSeries := TLineSeries.Create(Chart1);Series.Add(100, '头部', clRed);Series.Add(200, '颈部', clGreen);Chart1.AddSeries(Series);end;这样就会生成一个简单的折线图表，要生成其它类型的数据图表，可以添加不同的数据

unit nettool; interface uses ComCtrls, SysUtils,windows, WinInet, URLMon; type nettools = class(TObject) public //可以下载FTP/HTTP等协议的文件 class function DownloadFile(SourceFile, DestFile: string): Boolean;

在C#中调用Delphi6写的;Dellphi　DLL文件： /////////////////////////////////////////////////////////////////// library mydll; uses SysUtils, Classes; {$R *.res} function Out_Char(str1:PChar;str2:PChar):Pchar;st

program SplashDemo;uses  Forms,  Windows,  Controls,  Messages,  Main in Main.pas,  Splash in Splash.pas {frmSplash};//这个窗体是最先弹出的窗体{$R *.res}var  hMutex: THandle;  FoundWnd: THandle;  ModuleName:

1 换皮肤：skindata1.LoadFromCollection(skinstore1,i);  inc(i);if(i>=skinstore1.Store.Count)then i:=0;2 ENLIB导出各种数据格式。 procedure TForm1.Button1Click(Sender: TObject);var    ExpClass:TDBGridEhExport

 //使用方法：（遍历根hkey_classes_root）// fxxx(HKEY_CLASSES_ROOT,,);Procedure TForm1.fxxx(root:hkey;Fatherkey,KeyName: String);Var  tstring: tstrings;  i: integer;  registry: TRegistry;Begin  //   定位主键的位置 

procedure TForm1.Button2Click(Sender: TObject);vartmp:string;begin   with IdMessage1 do  begin     Clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複    Body.Assign(Memo1.Lines);    From.Text := yangtang_n

开发步骤:1、New->Other->Service Application2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一下：AllowPause:是否允许暂停AllowStop: 是否允许停止Dependencies: 设置服务的依存关系，服务的启动是否依赖于某个服务或者组DisplayName: 在“服务”窗口显示的名称Inter