在类内部传递实例参数

[dqlihb]

tmyclass=class
private
public
procedure proc(i:integer;myclass1:tmyclass);
end;

procedure tmyclass.proc(i:integer;myclass1:tmyclass);
begin
func(i,aaa);
end;

上面的代码需要在类内部传递实例参数
请问上面的代码可以么
如果可以，实例本身用什么来表示呢（也就是代码中的aaa换成什么呢)

[npkaida]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  tmyclass=class
  private
    k: integer;
  public
    procedure proc(i:integer;myclass1:tmyclass);
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  c:tmyclass;
begin
  c:=tmyclass.Create;
  try
    c.k:=100;
    c.proc(1, c);
  finally
    c.Free;
  end;
end;

{ tmyclass }

procedure tmyclass.proc(i: integer; myclass1: tmyclass);
begin
  ShowMessage(inttostr(i)+#13#10+inttostr(Myclass1.k));
end;

end.

[dqlihb]

function TMyClass.aaa: boolean;
type mypointer = function(i: integer;   xxx: TMyClass): boolean; stdcall;
var
     XHandle: Thandle;
     frm_p: mypointer;
     i: integer;
begin
     result := false;     
     XHandle := loadlibrary('DllA.dll');
     if XHandle > 32 then
     try
          frm_p := GetProcAddress(XHandle, 'Func');
          result := frm_p(0,  xxx); /// 此处类型错误 xxx extended
     finally
          freelibrary(XHandle);
     end;
end;

[wooden954]

顶一个

[dqlihb]

普京在吗？

[mjp1234airen4385]

1楼应该是楼主想的东西吧。

[sunnauq]

顶一个

[dqlihb]

要在内部自动判断实例