ojective-c convert to pascal pattern

 Case I. Simple Class

 Objective-C

 XE4 

// Protocol

@protocol mycalcEvent

- (void) oncalcEventA : (int) inx ext1:(int) extInx1;

- (void) oncalcEventB : (int) inx ext1:(int) extInx1;

@end

 

// ObjC Class : mycalc -------

@interface mycalc : NSObject {

    BOOL busy;

    //

    id <mycalcEvent> delegate;

}

 

- (void) setDelegate:(id) delegate;

- (int) calc : (int) value;

 

@property (nonatomicassignid delegate;

@end

  // User Protocol -----------------------------------------------

  mycalcEvent = interface(IObjectiveC)

   procedure oncalcEventA(inx :Integer; ext1 : Integer); cdecl;

   procedure oncalcEventB(inx :Integer; ext1 : Integer); cdecl;

  end;

 

  //

  TmycalcEvent = class(TOCLocal,mycalcEvent)

  private

  public

   procedure oncalcEventA(inx :Integer; ext1 : Integer); cdecl;

   procedure oncalcEventB(inx :Integer; ext1 : Integer); cdecl;

  end;

 

  // mycalc Class  --------------------------------------------

  mycalc = interface(NSObject)

   function  calc        ( value : integer) : integer; cdecl;

   procedure setDelegate ( adelegate : pointer ); cdecl;

  end;

 

  //

  MycalcClass  = interface(NSObjectClass) end;

  TMycalc = class(TOCGenericImport<MyCalcClass, mycalc>) end;

posted @ 2013-06-09 11:50  小糊涂的超级blog  阅读(348)  评论(0编辑  收藏  举报