BorlandTalk.com

Nikola Jankoviæ · Guest

I sincerely hoped that something like:

procedure TBaseObjList.FilterByDate(propName: string; startDate, endDate:
TDateTime);
var
i: Integer;
prop: TDateTime;
begin
for i:= Count-1 downto 0 do
begin
prop:= TDateTime(GetObjectProp(TBaseObj(Items[i]),propName));
if (prop < startDate) or (prop > endDate) then
Remove(TBaseObj(Items[i]));
end;
end;

procedure TBaseObjList.FilterByProperty(propName: string; propValue: string);
var
i: Integer;
begin
for i:= Count-1 downto 0 do
begin
if GetStrProp(TBaseObj(Items[i]),propName) <> propValue then
Remove(TBaseObj(Items[i]));
end;
end;

would work, but it doesn't. I get EPropertyError that property does not exist,
although it does and it is published (in second example), and incompatible types
(in first).

Please help me make it work.

Thanks in advance
nikola

Rob Kennedy · Guest

Nikola JankoviÄ‡ wrote: