Hi Robert,
thank you very much, that would help a lot!
I could use that feature not only constructing SQL, XML and Json, but also for XAML.
Such a piece of code is not very easy to write and to read:
oSB := System.Text.StringBuilder{}
oSB:AppendLine( e"<DataTemplate xmlns=\"http://schemas.microsoft.com/winfx/2006/xaml/presentation\">" )
oSB:AppendLine( e"<Grid VerticalAlignment=\"Center\" HorizontalAlignment=\"Left\" Background=\"#ececec\">" )
oSB:AppendLine( e"<Grid.RowDefinitions>" )
oSB:AppendLine( e"<RowDefinition Height=\"Auto\"/>" )
oSB:AppendLine( e"</Grid.RowDefinitions>" )
oSB:AppendLine( e"<Grid.ColumnDefinitions>" )
oSB:AppendLine( e"<ColumnDefinition Width=\"Auto\"/>" )
oSB:AppendLine( e"<ColumnDefinition Width=\"Auto\"/>" )
oSB:AppendLine( e"</Grid.ColumnDefinitions>" )
oSB:AppendLine( e"<TextBlock Margin=\"20,5,5,1\" " + cFontProperties + e" Text=\"Auftrag : \" Grid.Row=\"0\" Grid.Column=\"0\" />" )
oSB:AppendLine( e"<TextBlock Margin=\"1,5,5,10\" " + cFontProperties + e" Text=\"{Binding DraggingRecords[0].DraggingBeschreibung}\" Grid.Row=\"0\" Grid.Column=\"1\"/>" )
oSB:AppendLine( e"<TextBlock Text=\"Ziel : \" Grid.Row=\"1\" Grid.Column=\"0\"/>" )
oSB:AppendLine( e"<TextBlock Text=\"{Binding DragStatus}\" Grid.Row=\"1\" Grid.Column=\"1\"/>" )
oSB:AppendLine( e"</Grid>" )
oSB:AppendLine( e"</DataTemplate>" )
oStringReader := System.IO.StringReader{ oSB:ToString() }
oXmlReader := System.XML.XmlReader.Create( oStringReader )
oDataTemplate := ( DataTemplate ) System.Windows.Markup.XamlReader.Load( oXmlReader )
_oPlanungGrid:RowDragDropTemplate := oDataTemplate
Wolfgang