procedure TfrmMain.btnJiamiClick(Sender: TObject);
begin
code:=TcodeOperation.create;
code.jiami1(memo1,txt1.text,memo2); //memo1原文,txt1.text密钥,memo2密文
code.free;
end;
begin
code:=TcodeOperation.create;
code.jiami1(memo1,txt1.text,memo2); //memo1原文,txt1.text密钥,memo2密文
code.free;
end;
怪:我记得我曾是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可以么?谢谢谢谢!!!!