procedure TfrmMain.btnJiamiClick(Sender: TObject);
begin
  code:=TcodeOperation.create;
  code.jiami1(memo1,txt1.text,memo2); //memo1原文,txt1.text密钥,memo2密文
  code.free;
end;

解决方案 »

  1.   

    to LI_xiufu:
    怪:我记得我曾是code:=TcodeOperation.create(严格按照各种名著)过得呀,怎么没了。事实证明,加上code:=TcodeOperation.create;后程序通过。ok!!!
    问:1.为何一定要code:=TcodeOperation.create;呢?2.我的类结构思路对么?
        3.我的
    TcodeOperation = class
    private
      sort:Tsort;
    public
      procedure Jiami1(mm:Tmemo;password:string;Var mmTarget:Tmemo);
    中没有继承create可以么?谢谢谢谢!!!!