| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function InsertData(Teg{имя тега}, Data{слешь, когда нужен}, info{параметры}:String):String;
begin
if (Length(info)>0)then
Result:='<'+Teg+' '+info+'>'
else
Result:='<'+Data+Teg+'>';
end;
procedure TForm1.Button1Click(Sender: TObject);
var sList:TStringList;
begin
sList:=TStringList.Create;
try
sList.Add(InsertData('ПеречниЛьготныхПрофессий', '', 'ВерсияФормата="1.6"'));// забиваем глобальные теги
sList.Add(InsertData('ПеречниЛьготныхПрофессий', '/', '');//закрываем его
sList.Insert(sList.Count-1, InsertData('Перечень', '', 'ДатаСоставления="02.04.2008" Тип="ИСХОДНЫЙ" СогласованоСПрофсоюзом="1" СтатусПроверки="НЕ-ПРОВЕРЯЛСЯ"'));//вложеный тег
sList.Insert(sList.Count-1, InsertData('Перечень', '/', ''));//закрываем
sList.Insert(sList.Count-2, InsertData('Предприятие', '', 'РегНомер="130-519-842223" Наименование="ЗАО ОМЗ" Тип="ПРОИЗВОДСТВО"'));
sList.Insert(sList.Count-2, InsertData('Предприятие', '/', ''));
sList.Insert(sList.Count-3, InsertData('ВидДеятельности', '', ''));//открытие
sList.Insert(sList.Count-3, 'СПИСОК-1-2');//значение
sList.Insert(sList.Count-3, InsertData('ВидДеятельности', '/', ''));//закрытие
sList.Insert(sList.Count-3, InsertData('Директор', '', ''));//открыите
sList.Insert(sList.Count-3, 'sdf');// и тут снова надо влаживать
sList.Insert(sList.Count-3, InsertData('Директор', '/', ''));
//Count - 3 и подобное, это когда тебе надо не в последнюю сроку записывать, а с отступом
sList.SaveToFile('MyXML.XML');
finally
sList.Free;
end;
end;
end.
|
|
)