Delphi - [решено] Создать XML файл

[Dodakaedr]

Напишите, пожалуйста код для создания xml файла с этого:

Код: Выделить всё

<?xml version="1.0"?>
<!-- created by Frigate XML package -->
  <Actions />
  <Desktop Language="Russian" TreeWidth="185" LastVersionCheck="41712" RunCount="1" ShowQuest="False" LastFun="0" ShowFun="True" Path="C:\Users\Администратор\Desktop" Converter="Images" LastDestination="C:\Users\Администратор\Desktop\" Filter="All suitable files (*.bmp,*.jpg,*.jpeg,*.ico,*.tif,*.tiff,*.png,*.wmf,*.emf,*.pcx,*.tga,*.gif,*.dcx,*.pxm,*.ppm,*.pbm,*.pgm,*.pxm,*.j2k,*.jp2,*.jpc,*.j2c,*.jpe,*.fax,*.g3n,*.g3f,*.dib,*.rle,*.targa,*.vda,*.thm,*.icb,*.vst,*.win,*.wdp,*.hdp,*.crw,*.cr2,*.dng,*.nef,*.raw,*.raf,*.x3f,*.orf,*.srf,*.mrw,*.dcr,*.bay,*.pef,*.arw,*.rw2,*.psd,*.pdd,*.pcd,*.cut,*.dcm,*.dicom,*.avs,*.cin,*.dot,*.dpx,*.fits,*.fpx,*.hdf,*.mat,*.miff,*.mtv,*.palm,*.pict,*.pix,*.pwp,*.rla,*.sgi,*.sun,*.svg,*.ttf,*.vicar,*.viff,*.xbm,*.xcf,*.xpm,*.wmz,*.emz)" view_hidden="False" >
    <MainForm Maximize="True" />
  </Desktop>

[lxa85]

Dodakaedr, еще разочек.

Чего надо сделать?



Код:

Код: Выделить всё

begin 
asignfile (f, textfile);
f.open();
writeln(f,'<?xml version="1.0"?>');
...
f.close();
end;

Так не пойдет? В общем виде.

Писал "на глаз", за корректность и работоспособность кода не гарантирую.

[Dodakaedr]

Цитата lxa85:



Чего надо сделать?

Delphi - [решено] Создать XML файл

Надо создать xml файл с таким содержимым

Код: Выделить всё

<?xml version="1.0"?>
<!-- created by Frigate XML package -->
  <Actions />
  <Desktop Language="Russian" TreeWidth="185" LastVersionCheck="41712" RunCount="1" ShowQuest="False" LastFun="0" ShowFun="True" Path="C:\Users\Администратор\Desktop" Converter="Images" LastDestination="C:\Users\Администратор\Desktop\" Filter="All suitable files (*.bmp,*.jpg,*.jpeg,*.ico,*.tif,*.tiff,*.png,*.wmf,*.emf,*.pcx,*.tga,*.gif,*.dcx,*.pxm,*.ppm,*.pbm,*.pgm,*.pxm,*.j2k,*.jp2,*.jpc,*.j2c,*.jpe,*.fax,*.g3n,*.g3f,*.dib,*.rle,*.targa,*.vda,*.thm,*.icb,*.vst,*.win,*.wdp,*.hdp,*.crw,*.cr2,*.dng,*.nef,*.raw,*.raf,*.x3f,*.orf,*.srf,*.mrw,*.dcr,*.bay,*.pef,*.arw,*.rw2,*.psd,*.pdd,*.pcd,*.cut,*.dcm,*.dicom,*.avs,*.cin,*.dot,*.dpx,*.fits,*.fpx,*.hdf,*.mat,*.miff,*.mtv,*.palm,*.pict,*.pix,*.pwp,*.rla,*.sgi,*.sun,*.svg,*.ttf,*.vicar,*.viff,*.xbm,*.xcf,*.xpm,*.wmz,*.emz)" view_hidden="False" >
    <MainForm Maximize="True" />
  </Desktop>

[lxa85]

Dodakaedr, в чем проблема то?

Блокнот - копировать - вставить, сохранить как?

Delphi - создать компонетн Memo - отредактировать строки как надо, вызывать метод savetofile (для пущей важности через даилог SaveFile)?

Просто посмтореть работу с тектстовыми файлами и "в лоб" записать константные значения, не забыв файл закрыть?

Код что выше для кого писали?

[Dodakaedr]

Цитата lxa85:



Блокнот - копировать - вставить, сохранить как?

Delphi - создать компонетн Memo - отредактировать строки как надо, вызывать метод savetofile (для пущей важности через даилог SaveFile)?

Просто посмтореть работу с тектстовыми файлами и "в лоб" записать константные значения, не забыв файл закрыть?

Код что выше для кого писали?

Delphi - [решено] Создать XML файл

Если б я в этом что-то понимал, то и не спрашивал