Delphi 6.01: Items.Strings-Bug

[Andreas Kosch]

Schritte zum Reproduzieren des Problems: <br>
1. Neue Anwendung<br>
2. TListbox im Formular ablegen<br>
3. Über Objektinspektor 3 Zeilen hinzufügen, die 2. Zeile ist leer<br>
4. Rechter Mausklick auf Formular | <b>Ansicht als Text</B>
<pre>
object Form1: TForm1
Left = 270
Top = 132
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 48
Top = 24
Width = 121
Height = 97
ItemHeight = 13
Items.Strings = (
'Zeile 1'
<br>
'Zeile 3')
TabOrder = 0
end
end
</pre>
5. Wieder auf <b>Ansicht als Formular</b> zurückschalten <br>
6. Schritt 4 wiederholen -> Leerzeile ist verschwunden
<pre>
object Form1: TForm1
Left = 270
Top = 132
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 48
Top = 24
Width = 121
Height = 97
ItemHeight = 13
Items.Strings = (
'Zeile 1'
'Zeile 3')
TabOrder = 0
end
end
</pre>
In Delphi 5 wird die Leerzeile durch die Zeichenkette '' gespeichert, so dass die Leerzeile niemals verlorengeht.

<b>Achtung: </b><br> Gefahr von Datenverlust, wenn Objektinstanzen in das Textformat konvertiert, übertragen und zurückkonvertiert werden.

[Alexander Kochsiek]

Hallo Herr Kosch,

müßte es nicht ohnehin so heißen:

<pre>
object Form1: TForm1
Left = 270
Top = 132
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListBox1: TListBox
Left = 48
Top = 24
Width = 121
Height = 97
ItemHeight = 13
Items.Strings = (
'Zeile 1'
'' //Leerstring statt einfach leerer Zeile???
'Zeile 3')
TabOrder = 0
end
end

</pre>

nur interessehalber...

mfg Ale