W moim programie bardzo często korzystam ze sprawdzania czy dany obiekt jest danej klasy jeśli tak to coś tam wykonuje. I zamiast powtarzać ten kod kilka naście razy chciałem go opakować w funkcji ale tutaj pojawił się problem:
function FindTabSheet(Tab : TTabSheet; TDrugiParametr): TPageControl;
var
x : Integer;
begin
Result := nil;
for x := 0 to Tab.ComponentCount-1 do
if (Tab.Components[x] is TDrugiParametr) then
begin
Result := TDrugiParametr(Tab.Components[x]).PageContent;
break;
end;
end;
Czy jest to wykonywalne aby jako drugi parametr nie przekazywać zmiennej a klasę ?