delphi7 xml通用解析转换为stringgrid
对于有n多记录的xml,可以填充到stringgrid中
其中 vkeynode 为 xml中 重复节点
function CommonAnalyzeXml(vxml,vkeynode: string;var vgrid: TStringGrid): Boolean;
var
lxml: TNativeXml;
i,j,k: Integer;
llist: TsdNodeList;
lnode: TXmlNode;
lstr: string;
ls,lnamels: TStringList;
begin
Result := False;
vxml := StringReplace(vxml,'GB2312','UTF-8',[rfReplaceAll]);
lxml := TNativeXml.Create(nil);
lxml.ReadFromString(vxml);
lnode := lxml.Root;
if lnode <> nil then
begin
lnamels := TStringList.Create;
GetXmlAllValues(lnamels,lnode,True);
for i := 1 to vgrid.rowcount do
for j := 1 to vgrid.colcount do
vgrid.cells[j - 1, i - 1] := '';
if lnamels.Count > 0 then
begin
vgrid.DefaultColWidth := 80;
vgrid.DefaultRowHeight := 20;
vgrid.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goRowSizing,goColSizing];
i := 1;
for j := 0 to lnamels.Count - 1 do
begin
if vgrid.ColCount < j then
vgrid.ColCount := vgrid.ColCount + 1;
vgrid.Cells[i,0] := lnamels.Strings[j];
Inc(i);
end;
llist := TsdNodeList.Create(False);
ls := TStringList.Create;
lnode.FindNodes(vkeynode, llist);
k := 1;
for i := 0 to llist.Count - 1 do
begin
lnode := llist[i];
ls.Clear;
GetXmlAllValues(ls,lnode);
if vgrid.RowCount < i then
vgrid.RowCount := vgrid.RowCount + 1;
for j := 0 to vgrid.ColCount - 1 do
begin
vgrid.Cells[j,k] := ls.Values[vgrid.Cells[j,0]];
end;
inc(k);
end;
FreeAndNil(llist);
FreeAndNil(ls);
Result := True;
end;
FreeAndNil(lnamels);
end;
FreeAndNil(lxml);
end;
http://blog.csdn.net/y281252548/article/details/52527843
delphi7 xml通用解析转换为stringgrid的更多相关文章
- xml 字符串解析成通用的map
[quote]Stax解析技术:快速高效,根据流的形式解析xml,比dom解析技术更加快,dom解析技术是基于文档结构树的,会把整个dom文件树加载到内存进行解析[/quote] package co ...
- 关于C#对Xml数据解析
首先进行简单说明Xml 与Html 和 XAML数据标签的差别. 1.Xml属于数据文本, 被设计为传输和存储数据,其焦点是数据的内容.它与json格式数据相似,可作为服务数据传输类型. 其中XML ...
- Spring源码阅读笔记04:默认xml标签解析
上文我们主要学习了Spring是如何获取xml配置文件并且将其转换成Document,我们知道xml文件是由各种标签组成,Spring需要将其解析成对应的配置信息.之前提到过Spring中的标签包括默 ...
- Qt之xml文件解析
XML文件简介 XML - EXtensible Markup Language,可拓展标记语言 Qt中加载XML模块 .pro 文件中添加 QT += xml Qt的XML访问方式 引用:https ...
- xml的解析与创建——bing到youdao导入文件的转换
首先是为了解决一个问题:如何将必应单词本中记录的单词转入到有道词典中去.实际上,必应词典可以导出xml文件,但是该文件有道词典无法解析.这里涉及到xml的解析和创建了. 代码如下: import ja ...
- iOS - XML 数据解析
前言 @interface NSXMLParser : NSObject public class NSXMLParser : NSObject 1.XML 数据 XML(Extensible Mar ...
- iOS开发——网络Swift篇&JSON与XML数据解析
JSON与XML数据解析 JSON数据解析(内置NSJSONSerialization与第三方JSONKit) 一,使用自带的NSJSONSerialization 苹果从IOS5.0后推出了SD ...
- PHP XML Expat 解析器
PHP XML Expat 解析器 内建的 Expat 解析器使在 PHP 中处理 XML 文档成为可能. XML 是什么? XML 用于描述数据,其焦点是数据是什么.XML 文件描述了数据的结构. ...
- 03-IOSCore - XML及解析、Plist
一.XML 可扩展标记语言 是什么?是一段有规范的字符串, 用在哪?用在任何地方 语法: * 结点Node <结点名 属性名="属性值"> 结点内容 </结点名& ...
随机推荐
- N 个互异数的数组的平均逆序数
N 个互异数的数组的平均逆序数为 N(N−1)/4 1. 简单证明 对于任意的数的表 L(5,8,9,6,4),以及其反序表 Lr(4,6,9,8,5),它们各自的逆序数分别为:6 ((5, 4), ...
- solr 7.x 配置ikanalyzer
一.使用支持高版本的ikanalzyer进行分词配置(尾部有文件链接) ikanalyzer最后更新是在2012年,对于高版本的lucee不支持.但网上还是有被修改过的Ikanalyzer的6.5.0 ...
- Effective C++ 条款23
宁non-member.non-friend顶替member性能 本节介绍笔者为什么时间来实现某些功能.择非成员函数而且是非友元函数.这样做总结一句话,就是最大限度的实现类的封装性. 封装意味着不可见 ...
- react里执行shouldComponentUpdate时返回false的后果
大家都知道生命周期shouldComponentUpdate返回false时,不会进行后续的渲染,那这个时候state是什么情况呢.我们看一下demo class Toggle extends Rea ...
- go-wingui 2018 全新 v2.0 版本发布,包含重大更新!
go-wingui 2018 全新 v2.0 版本发布,包含重大更新!使用新版CEF内核Chromium 63.0.3239.109,页面可以使用最新的css3,html5技术.使用delphi7重写 ...
- 配置文件——App.config文件读取和修改
作为普通的xml文件读取的话,首先就要知道怎么寻找文件的路径.我们知道一般配置文件就在跟可执行exe文件在同一目录下,且仅仅在名称后面添加了一个.config 因此,可以用Application.Ex ...
- 如何获得 Qt窗口部件在主窗口中的位置--确定鼠标是否在某一控件上与在控件上的位置
用Qt Creator 设计程序时,最方便的就是ui设计器,可以很容易的得到想要的布局. 但是这样自动布局带来的后果是很难知道窗口中某一部件在主窗口中的相对位置. 在处理子窗口鼠标事件时变的很麻烦.主 ...
- SpringMVC+easyUI 分页,查询 (完整的CRUD)
最终完毕CRUD的功能了,注意,这里会对前面有一些修改,UserController的listUser() 已经改写了,如今把所有整理一下吧. JSP: <%@ page language=&q ...
- C++第11周(春)项目4 - 类族的设计
课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759,内有完整教学方案及资源链接 [项目4 - 类族的设计]按下面的提示,由基类 ...
- Windows下静态编译Qt4
既然是静态编译,那就要编译出来的程序不信赖于任何dll文件.首先下载qt-win-opensource-4.7.4-mingw.exe: http://get.qt.nokia.com/qt/sour ...