Home

Welcome to the FluentXML wiki!

This unit demonstrates how we can produce an XML document in Object Pascal with a simple way of using the fluent design pattern and is offered to community service for this purpose.

The following example refers to a simple and streamlined sample of how this object can be used.

implementation

uses

  FluentXML_;

procedure TForm1.Button1Click(Sender: TObject); var

  XML: TFluentXML;

begin

      XML := New
            .Version(1.0)
            .Encoding(TEncoding.UTF8)
            .NameSpace('')
            .Add('Kitaplar'
                ,New
                .Add('Kitap', [ 'ID="1000"', 'Indirimli="Hayir"' ]
                    ,New
                    .Add('Adi'   , 'Mastering Delphi')
                    .Add('Fiyat' , 50)
                    .Add('Stok'  , 40)
                    .Add('Yazarlar'
                        ,New
                        .Add('Yazar', 'Marco CANTU')
                        .Add('Yazar', '<![CDATA[TEST]]>')
                        )
                    )
                .Add('Kitap', [ 'ID="1001"', 'Indirimli="Evet"' ]
                    ,New
                    .Add('Adi'   ,'PHP, MySQL ve Apache')
                    .Add('Fiyat' , 65)
                    .Add('Stok'  , 30)
                    .Add('Yazarlar'
                        ,New
                        .Add('Yazar', 'Julie C. MELONI')
                        )
                    )
                .Add('Kitap', [ 'ID="1002"', 'Indirimli="Evet"' ]
                    ,New
                    .Add('Adi'   ,'Delphi Cookbook')
                    .Add('Fiyat' , 35)
                    .Add('Stok'  , 300)
                    .Add('Yazarlar'
                        ,New
                        .Add('Yazar', 'Daniele TETİ')
                        )
                    )
                )
            .FormatXml
            ;
      Memo1.Lines.Text := XML.AsString;
      XML.DisposeOf;
      //FreeAndNil(XML);

end;