reference to procedure, reintroduce

TCallProc = reference to procedure (abc: integer);

TCallFunc = reference to function (abc: integer): boolean;

procedure subfunction(url: string; Callback: TCallProc); <- Callback 함수 사용 등에서 함수를 parameter로 넘길 때

reintroduce (부모 Class 함수의 파라미터를 변경하여 사용하고 싶을 때)

TClassA = class

procedure Draw; virtual;

end;

TClassB = class(TClassA)

procedure Draw(param1: string); reintroduce;

end;

procedure TClassA.Draw;

begin

// Do Something

end;

procedure TClassB.Draw(param1: string);

begin

inherited; // TClassA 의 Draw 실행

// Do Something

end;