-2
如何打开/加载数据从xml文件到delphi的tcxgrid?如何打开/加载数据从xml文件到delphi的tcxgrid?
如何打开/加载数据从xml文件到delphi的tcxgrid?如何打开/加载数据从xml文件到delphi的tcxgrid?
那么我们走吧。首先你没有提供任何XML数据所以我用这个:
<?xml version="1.0"?>
<Tests>
<Test TestId="0001" TestType="CMD">
<Name>Convert number to string</Name>
<CommandLine>Examp1.EXE</CommandLine>
<Input>1</Input>
<Output>One</Output>
</Test>
<Test TestId="0002" TestType="CMD">
<Name>Find succeeding characters</Name>
<CommandLine>Examp2.EXE</CommandLine>
<Input>abc</Input>
<Output>def</Output>
</Test>
<Test TestId="0003" TestType="GUI">
<Name>Convert multiple numbers to strings</Name>
<CommandLine>Examp2.EXE /Verbose</CommandLine>
<Input>123</Input>
<Output>One Two Three</Output>
</Test>
<Test TestId="0004" TestType="GUI">
<Name>Find correlated key</Name>
<CommandLine>Examp3.EXE</CommandLine>
<Input>a1</Input>
<Output>b1</Output>
</Test>
<Test TestId="0005" TestType="GUI">
<Name>Count characters</Name>
<CommandLine>FinalExamp.EXE</CommandLine>
<Input>This is a test</Input>
<Output>14</Output>
</Test>
<Test TestId="0006" TestType="GUI">
<Name>Another Test</Name>
<CommandLine>Examp2.EXE</CommandLine>
<Input>Test Input</Input>
<Output>10</Output>
</Test>
</Tests>
临屋的数据名称的test.xml
我用一个属性来获取下与EXEFILE一起保存名称:
property XMLFileName: String read GetXMLFileName;
和实现:
function TForm8.GetXMLFileName: String;
begin
Result := ExtractFilePath(Application.ExeName) + 'test.xml';
end;
然后我的东西到XML文件转换为数据集:
procedure TForm8.DomToDataset(XMLNode: IXMLNode; Dataset: TDataset);
var
AttrNode: IXMLNode;
procedure CreateFields;
var
StringField: TStringField;
i: Integer;
ChildNode: IXMLNode;
begin
for i := 0 to AttrNode.ChildNodes.Count - 1 do
begin
ChildNode := AttrNode.ChildNodes.Get(i);
StringField := TStringField.Create(Dataset);
StringField.Size := 50;
StringField.FieldName := ChildNode.NodeName;
StringField.DisplayLabel := ChildNode.NodeName;
StringField.Dataset := Dataset;
StringField.Name := 'StringField' + IntToStr(Dataset.Fields.Count + 1);
end;
end;
var
i, J: Integer;
begin
Dataset.Close;
Dataset.Fields.Clear;
for i := 0 to XMLNode.ChildNodes.Count - 1 do
begin
AttrNode := XMLNode.ChildNodes.Get(i);
if Dataset.Fields.Count = 0 then
CreateFields;
Dataset.Open;
Dataset.Append;
try
for J := 0 to AttrNode.ChildNodes.Count - 1 do
Dataset.Fields[J].Value := AttrNode.ChildNodes.Get(J).NodeValue;
Dataset.Post;
except
Dataset.Cancel;
end;
end;
end;
这是远远不能perfrect,但它给你的照片。最后我们需要将它们结合在一起:
procedure TForm8.FillGrid;
var
XMLDocument: TXMLDocument;
i: Integer;
begin
XMLDocument := TXMLDocument.Create(nil);
XMLDocument.LoadFromFile(XMLFileName);
XMLDocument.Active := True;
DomToDataset(XMLDocument.DocumentElement, dxMemData1);
FreeAndNil(XMLDocument);
dxMemData1.Active := True;
cxGrid1DBTableView1.DataController.CreateAllItems;
for i := 0 to cxGrid1DBTableView1.ColumnCount - 1 do
cxGrid1DBTableView1.Columns[i].ApplyBestFit();
end;
这是一个好的开始。由于我没有你的信息,我无法接近。希望你接受我的回答。
非常感谢您的回答,帮助了很多人。非常感激。 – Sharpie 2014-10-03 13:09:07
Delphi附带一个XML Mapper工具,您可以使用它将XML转换为TClientDataSet可以使用的格式。然后,使用TXmlTransformProvider作为CDS的输入,CDS通过DataSource将数据提供给cxGrid。 OLH详细解释了这一点。 – MartynA 2014-09-25 15:46:25
StackOverflow是一个困难的社区。为什么人们如此迅速地投降(特别是初学者),而不是帮助改善问题? – Ampere 2014-09-25 20:50:51
@达格 - 改善你的问题,否则他们会关闭它。显示您拥有的代码并显示问题。 – Ampere 2014-09-25 20:52:59