загрузка из xml в Tlistview
korleonemike © (2006-09-20 13:07:00)
есть файл xml, нужно данные из него поместить в Tlistview в
нормальном виде. (есть программа которая делала это из текстового
файла). есть другая программа со схожими функциями выгружающая xml.
про xml я вообще ничего не знаю по этому прошу расшифровать кусок
кода(что есть что) или дать ссылку на полезное для этого дела
чтиво.....
Function FindTreeNode(FirstNode: TTreeNode; Const AText:
String): TTreeNode;
Begin
Result:= FirstNode;
While Result Nil Do
Begin
If Copy(Result.Text,1,20) = AText Then Exit;
Result:= Result.GetNextSibling;
End;
End;
Var NewNode, TreeNode: TTreeNode;
Str,S:String;
F:TextFile;
FIO,Name,OT,Chet:string;
i:Integer;
S1: string;
begin
List := TStringList.Create;
TreeNode:= TreeView1.Items.GetFirstNode;
while TreeNode nil do
begin
if Copy(TreeNode.Text,1,3) =
'ÍÏÏ' then
begin
Str:=''; S1:='';
repeat
TreeNode:= TreeNode.GetNext;
S:=TreeNode.Text;
while Copy(S,1,1)'>' do
begin S1:=S1+Copy(S,1,1);Delete(S,1,1);end;
while Copy(S,1,1)':' do
Delete(S,1,1);
if
(S1='
ProgRAMmer Dimonych (2006-09-20 18:57:00) [1]
Вот накатал чего-то. Правильные xml (хотя я очень слабо знаю
этот формат) берёт.
http://webfile.ru/1114976
Пробовал на таком файле:
<?xml version="1.0"?>
<gameoptions>
<ingame autoscroll="true" timelimit="true"/>
<screen fullscreen="true" showfps="false" bitdepth="16"
backbuffer="0" coloredcursors="true" showobjrgn="false"
showfloorrgn="false" showwallrgn="false"/>
<sfx soundquality="1" mastermute="false" mastervolume="96"
musicmute="false" musicvolume="64" dynamicmusic="false"
logsound="false"/>
<system loggamelogic="false" logpaintserver="false"
forcepaintserver="0" advancedpainter="0"/>
<capture fps="0"/>
<new>
<something/>
</new>
</gameoptions>
<something else/>
<1>
<2>
<3>
<4>
<Working hard/>
</4>
</3>
</2>
</1>
Наверх 
ЧАТ |
Орешник |
|
