这个程序可以用于解析任何合法的XML字符串。首先是看一下程序的运行效果： 以解析这样一个XML的字符串为例：<?xml version="1.0" encoding="UTF-8"?><BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</OwnerAge></Owner><BookMes><BookName>时间简史</BookName><ISDN>234343453534</ISDN><Writer>霍金</Writer></BookMes></BookInfo> 首先是打开应用程序 然后将上面所示的字符串复制...
1 2{《HeadFirst设计模式》之策略模式 } 3{ 本单元中的类为策略类 } 4{ 编译工具: Delphi7.0 } 5{ E-Mail : guzh-0417@163.com } 6 7unit uStrategy; 8 9interface1011type12 {飞行接口，及其实现类 }1314 IFlyBehavior = Interface(IInterface)15 procedure Fly;16 end;1718 TFlyWithWings = class(TInterfacedObject, IFlyBehavior)19 public20 procedure Fly;21 end;2223 TFlyNoWay = class...
program Project1;uses Windows, Messages, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + ‘_deleteme.bat‘; AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile, ‘:try‘); Writeln(BatchFile, ‘del "‘ + ParamStr(0) + ‘"‘); Writel...
功能挺多的，就是很多地方都没有完善。不过简单使用，是没有问题的。我也忘记是在哪个网站下载的，可能是Git国外的网站。仿Word文档编辑器，不过其实没有必要的，因为用户会直接使用微软或者其他软件来制作自己的文档。但是却具有参考价值，虽然代码需要优化的地方还有很多。比如那些添加控件这些可以去除，把代码结构处理得紧凑一些，而且增加更多可以自定义的地方就更理想了。其实大家最最讨厌都是一些滚动条和控件背景颜色都无法...
unit ufrmSysPubMessage;interfaceuses Windows, Forms, Messages, Classes, ExtCtrls, Controls, StdCtrls;type TfrmSysPubMessage = class(TForm) Image1: TImage; lblMessage: TLabel; procedure FormCreate(Sender: TObject); protected IconID: PChar; public procedure WndProc(var Msg: TMessage); override; procedure ShowMessage(AMsg: string); end;implementation{$R *.DFM}{ TfrmMessageForm ...
unit UWaterMark;interfaceuses{$IFNDEF DELPHIXE2ANDUP}windows,SysUtils,classes,graphics,Gdiplus;{$ELSE}winapi.windows, System.SysUtils,System.Classes,Vcl.Graphics,Gdiplus;{$ENDIF}type TWaterMarker=classprivatefSourcePic,fWaterMarkPic,fCopyRight:string;fResolution:Single;Photo: TGpImage;PhWidth: Integer;PhHeight: Integer;Watermark: TGpImage;WmWidth: Integer;WmHeight: Integer;Bmp: TGpBitmap;procedur...
VCL里面的的实现program ZhouFamily;usesVcl.Forms,Winapi.Windows,FrmZhouFamilyMainU in‘FrmZhouFamilyMainU.pas‘{FrmZhouFamilyMain} ,SplashFormU in‘SplashFormU.pas‘{SplashForm} ,DmU in‘DmU.pas‘{DM: TDataModule};varTimestart, timeend: dword;beginApplication.Initialize;Application.MainFormOnTaskbar := True;SplashForm := TSplashForm.Create(Application);SplashForm.Show;SplashForm.Update;Timestart :=...
1 2{《HeadFirst设计模式》之单例模式 } 3{ 编译工具: Delphi2007 for win32 } 4{ E-Mail : guzh-0417@163.com } 5 6unit uChocolateBoiler; 7 8interface 910type11 TChocolateBoiler = class(TObject)12 strict private13 class var14 FUniqueInstance: TChocolateBoiler;15 strict private16 FEmpty : Boolean;17 FBoiled: Boolean;18 constructor Create;19 public20 class function GetInstance: TC...
//提示：此代码需要use Registry, Common; function WriteMAC(model:integer):integer; var reg:TRegistry; begin reg:=TRegistry.Create; //创建注册表对象reg.RootKey:=HKEY_LOCAL_MACHINE; //指定注册表根为HKLM if reg.OpenKey(‘\System\CurrentControlSet\Control\Class\ {4D36E972-E325-11CE-BFC1-08002bE10318}\0013‘,true) then begin //若项存在 reg.WriteString(‘NetworkAddress‘,‘000B6AC824C...
Delphi 10.4重点是实现了LSP，但现在最新的10.4.1还是不成熟，无法满足日常需要，不过没关系，可以设置为原有的方案，如下图： 原文：https://www.cnblogs.com/kinglandsoft/p/14238969.html
说明：1）TTtimer控件 TTtimer控件的实质是调用WindowsAPI定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER消息的处理过程。通过设置OnTimer事件和Interval属性，我们可以很方便的产生一些简单的定时事件。2）Sleep函数 Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds)，暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如：sleep(1000)...
Delphi在Webbrowser中插入 HTML/java script代码使用方法将下面的代码赋值到1个记事本里保存，然后保存为xxx.htm就可以看到效果使用PasteHtml实现功能 的事件Windows Media播放器 mp3 mp4Windows Real PlayerFlash PlayerMid背景音乐图片 的方法( (WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).pasteHTML(Memo1.Text);注意 划删除线的表示使用这个函数无效果播放Mid背景音乐 src为Midi文...
################################属性 设置################################################字体设置{//---------------------------------------------------------------------------------------字体名称 <FONT face=微软雅黑>This A Text</FONT>字体大小 <FONT size=1><SPAN ><P>This A Text</P></SPAN></FONT>//---------------------------------------------------------------------------------------粗体 ...
《zw版·Halcon-delphi系列原创教程》航母舰载机·视觉定位标志的识别代码 航母舰载机机身上的黄黑圆圈的标志是什么意思，辐射？核动力？战术核弹？ 《百度百科》介绍如下 这是工业数字摄影测量的人工标志 数字摄影测量（Basic concept of digital photogrammetry）是基于数字影像和摄影测量的基本原理，应用计算机技术、数字影像处理、影像匹配、模式识别 等多学科的理论与方法，提取所摄对像以数字方式表达的几...
五、类是一种对数据和操作高度的封装机制1)数据封装unit Unit2;interface typeTEmployee = class;privateFName: String;publicConstructor Create;function GetName: String;procedure SetName(AName: String);end;implementationconstructor TEmployee.Create;beginFName:= ‘Xumenger‘;end;function TEmployee.GetName: String;beginResult:= FName;end;procedure TEmployee.SetName(AName: String);beginFName:= AName;end;end...