Hi
DP,
ich versuche gerade die TObjectList um eine Suche zu erweitern.
Nur stehe ich grade auf dem Schlauch...
Wie kann ich auf den Inhalt der Liste aus der Klasse herraus zugreifen?
Ich kenne eine Beispiel Funktion in Vb.Net aber ich bin mir nicht sicher wie ich das in Delphi umsetzen soll.
Adressen ist in diesem Fall äquivalent zur TObjectList und locAdresse ist die Klasse.
Code:
Public Function Suchen(ByVal Text As String) As Adressen
'In dieser Adressen-Auflistung wird das Suchergebnis gesammelt.
Dim locAdressen As New Adressen()
For Each locAdresse As Adresse In Me
If locAdresse.Name Like Text Then
locAdressen.Add(locAdresse)
'Direkt zum 'Next' springen.
Continue For
ElseIf locAdresse.Vorname Like Text Then
locAdressen.Add(locAdresse)
Continue For
ElseIf locAdresse.Straße Like Text Then
locAdressen.Add(locAdresse)
Continue For
ElseIf locAdresse.Ort Like Text Then
locAdressen.Add(locAdresse)
Continue For
ElseIf locAdresse.PLZ.ToString Like Text Then
locAdressen.Add(locAdresse)
End If
Next
Return locAdressen
End Function