/
TStringList.Objects

TStringList.Objects

Owned by Moritz Groß
Dez. 03, 2024

Parameter

[Index: Integer]: TObject

Beschreibung

Repräsentiert eine definierte Menge von Objekten, von denen jedes mit einem bestimmten Eintrag in der Stringliste verknüpft ist.

Beispiel

procedure Test_Objects;
var
	list : TStringList;
	list2 : TStringList;
	index : Integer;
begin
	ErrorText := 'Test_Objects';
	list := TStringList.create;
	list2 := TStringList.create;
	try
		list.Add('Giraffe');
		list.Add('Esel');
		index := TestObj.AddObject('Weitere Tiere',list);

		list2.Assign(TStringList(TestObj.Objects[index]));
		if list2.Count <> 2 then
			raise ('Test_Objects Fehler');
		else
			ErrorText := ErrorText + ' ' + list2.CommaText;
	finally
		list.Free;
		list2.Free;
	end;
end;