[решено] Создать 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,*.v st,*.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]

Чего надо сделать? »
Надо создать 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,*.v st,*.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]

Блокнот - копировать - вставить, сохранить как?
Delphi - создать компонетн Memo - отредактировать строки как надо, вызывать метод savetofile (для пущей важности через даилог SaveFile)?
Просто посмтореть работу с тектстовыми файлами и "в лоб" записать константные значения, не забыв файл закрыть?
Код что выше для кого писали? »
Если б я в этом что-то понимал, то и не спрашивал:)