[решено] Создать XML файл - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Создать XML файл (http://forum.oszone.net/showthread.php?t=280487)

Создать 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>

Dodakaedr, еще разочек.
Чего надо сделать?

Код:

begin 

asignfile (f, textfile);

f.open();

writeln(f,'<?xml version="1.0"?>');

...

f.close();

end;

Так не пойдет? В общем виде.
Писал "на глаз", за корректность и работоспособность кода не гарантирую.

Цитата:

Цитата lxa85

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

Надо создать 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>

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

Цитата:

Цитата lxa85

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

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