[Delphi] Procedure 동적 호출
procedure HelloWorld;
begin
ShowMessage('HI');
end;
procedure HelloWorld2(a:String);
begin
ShowMessage('HI');
end;
procedure TFormSplash.FormCreate(Sender: TObject);
var
myproc:Procedure;
myproc2:Procedure(a:String);
begin
myProc:=HelloWorld;
if Assigned(myProc) then myProc;
myproc2:= HelloWorld2;
if Assigned(myproc2) then myproc2('');
이렇게 정의할 수도 있어요.
var
myproc:Procedure=HelloWorld;
myproc2:Procedure(a:String)=HelloWorld2;
매개변수 유형이 다르거나 순서가 다르면 프롬프트가 표시됩니다.
E2009 Incompatible types: ‘Parameter lists differ’
직접 할당 대상의 과정이나 함수에서 오류가 발생합니다
E2009 Incompatible types: ‘regular procedure and method pointer’
유형을 Type에 선언해야 합니다.
type
TMethod =
procedure
of
object
;
TFunc =
function
:
integer
of
object
;
TNotifyEvent =
procedure
(Sender: TObject)
of
object
;
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.