Delphiを使用しています。私はルートクラスとルートからの多くの派生クラスを持っています、クラスの名前はTROOT、TA、TB、TCと言います...コードには、次のコードによってプログラムのフローを制御するためのコードがあります
var
obj :TROOT;
begin
if ((obj is TA) or (obj is TB) or (obj is TC) or (obj is TD)) then
begin
// some other codes here
end
end;
このコードはうまく機能しますが、コードを拡張して、TROOTからより多くのサブクラスが派生し、そのswtichがプログラムの複数の場所に表示されるようにします。クラスタイプをセットまたは配列に入れて、次のような疑似コードを作成して、コードが拡張されたときにどこでも変更する必要がないようにする方法はありますか?
classarray = {TA, TB, TC, TD, TE, TF};
if (obj in classarray) then
begin
// put my code here
end
ありがとう。