procedureTForm1.btn1Click(Sender:TObject);varjcls:JClass;strClass:AnsiString;strMetod:AnsiString;strSign:AnsiString;strArg1,strArg2:string;strResult:AnsiString;begin{查询Java类名，不用加.class扩展名}s