Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);
var
nProps, i: Integer;
PropList: PPropList;
Value: Variant;
newNode: IXmlNode;
begin
nProps := GetTypeData (Comp.ClassInfo)^.PropCount;
GetMem (PropList, nProps * SizeOf(Pointer));
try
GetPropInfos (Comp.ClassInfo, PropList);
for i := 0 to nProps - 1 do
begin
Value := GetPropValue (Comp, PropList [i].Name);
NewNode := iNode.AddChild(PropList [i].Name);
NewNode.Text := Value;
if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then
if TObject (Integer(Value)) is TComponent then
NewNode.Text := TComponent (Integer(Value)).Name
else
ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);
end;
finally
FreeMem (PropList);
end;
end;
2021-10-05 07:50:02
8KB
1
Java遍历目录所有文件，读取指定文件夹下的所有文件名，并列出来，使用java.io.File 类的方法来访问系统中的目录，在窗口上部的文本框中输入c 盘根目录“c:\”，按下窗口下部的按钮“View”，则在窗口中部的文本区（JTextArea）组件中列举显示所有它下面的文件和子目录。
2021-09-19 22:25:53
27KB
1
Java得到文件属性信息，可以获得文件字节大孝是否可读、是否可写、是否允许修改、是否是隐藏文件等 属性。类似于Windows中点击文件右键，查看属性框中的功能。
2021-09-10 15:35:32
26KB
1
本系统使用两片MSP430作为主控芯片（含最小系统），配合DS18B20温度传感器，AMX1001湿度传感器（模拟量输出）。5110液晶显示MOUDLE。NRF24L01无线传输芯片。实现封闭环境内部测量和发送，外部接收的功能。
首先由测量发射部分在封闭环境之内采集到温度和湿度信息。由MSP 430负责将采集到的信息传送给无线收发芯片NRF24L01。并且控制收发芯片将数据打包。在2.4GHz的频段内，发送到封闭环境之外。这时在封闭环境之外的接收处理部分的无线模块接收到有效信息。其间经过收发的应答确认。确认信息有效后。送MSP430处理，得到温度湿度信息。送到显示模块上显示输出。
2021-08-28 18:06:04
1.34MB