名前 題名 ▼ snailさん > インターネットで検索するとメソッドアドレス取り出し方法として > MethodAddress が利用できる山本さんやStackOverflowなどで > 紹介されていたので実際に試してみました。 > > // サンプルソース抜粋 > function TForm9.MethodFromName(const Name: string): TNotifyEvent; > begin > TMethod(Result).Data := Self; > TMethod(Result).Code := Self.MethodAddress(Name); > if TMethod(Result).Code=nil then > Memo1.Lines.Add('Not find ' + Name ) > else > Memo1.Lines.Add('Find ' + Name ); > end; > > 結果、メソッドが定義されている場所が private や public だと駄目でした。 > なぜ駄目かは? GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link