fpack超级补丁请进来，关于类的调用

Question

function TCrypt.EnCrypt( Str : String ; Key : String ) : String ;
begin
        Result := Str + Key ;
end ;
procedure TForm1.Button3Click(Sender: TObject);
Var
        Crypt : TCrypt ;
begin
        Crypt := TCrypt.Create() ;
        Crypt.Str := 'nizvoo' ;
        Crypt.Key := 'some' ;
        ShowMessage( Crypt.EnCrypt( Crypt.Str , Crypt.Key ) ) ;end;
这样写的。
但我想在其它窗体调用类。
如何搞？

Answer 1

是不是要让这个类属于form1。

Answer 2

你在unit1 里申明的在其它单元uses unit1即可TCrypt 可以作为一个基类存在；不用让这个类属于form1

Answer 3

;
    function Encrypt( Str : String ; Key : Word ) : String ;
    function Decrypt( Str : String ; Key : Word ) : String ;
实现时 
要 function TCrypt.Encrypt( Str : String ; Key : Word ) : String 案shift + ctrl +c