Stringindiziertes Array

[Detlef Fricke]

Hi,

ich möchte den folgenden Quellcode von vb.net nach delphi.net übersetzen:

Dim propertyName As String
Dim oneNode As String
For Each propertyName In entry.Properties.PropertyNames
Try
(*) oneNode = propertyName & ": " & _
CType(entry.Properties(propertyName)(0), String)
Catch
oneNode = propertyName & ": " & _
"No text representation."
End Try
propertyNode.Nodes.Add(New TreeNode(oneNode))
Next

Dabei stellen entry.Properties.PropertyNames und entry.Properties stringindizierte Arrays dar, die es so in Delphi ja wohl nicht gibt.

Kenn jemand eine elegante Lösung oder muss ich eine Extraschleife mit if-Anweisung verwenden um (*) zu erzeugen.

Vielen Dank

Detlef Fricke

[Detlef Fricke]

Hat sich erledigt

Detlef Frick

[Detlef Fricke]

HI,
hat sich erledigt.

Detlef Frick

[Henry Krick]

Wäre nett, wenn du für andere User deine Lösung kurz darstellen kannst. Falls mal jemand sowas in der Art sucht, kann er dann hier die Lösung finden.

Dank