この発言は
#00947　Satobe          さんの指定クラスのpublishedなメソッド名を列挙
に対するコメントです



  あいや〜、大失敗してしまった。(^_^;

  このサンプルぢゃ、実際にどのメソッドが呼び出されているのか、
  区別できませんね。
  テスト用のクラス定義を一部以下のようにしましょう。(^^;;

procedure TTest1.TTest1Method(s: String);
begin
  ShowMessage(Format('私はTTest1Method [No=%d] s=%s', [No, s]));
end;
procedure TTest2.TTest2Method(s: String);
begin
  ShowMessage(Format('私はTTest2Method [No=%d] s=%s', [No, s]));
end;
procedure TTest3.TTest3Method(s: String);
begin
  ShowMessage(Format('私はTTest3Method [No=%d] s=%s', [No, s]));
end;

Original document by Satobe          氏 ID:(JCG00336)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。