删除部分无用代码

345aee49 · cz_012273 · dd304c60 · 345aee49
隐藏空白更改
内联并排

Showing with 1 addition and 15 deletion

MainForm.pas MainForm.pas +1 -15

未找到文件。
--- a/MainForm.pas
+++ b/MainForm.pas
@@ -103,24 +103,10 @@ end;


 procedure TToolsForm.Button5Click(Sender: TObject);
-//var
-    //Intent:JIntent;
-    //userstr:string;
+
 begin

   form2.show;
-   {
-  userstr:= edit1.text;
-  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(userstr)));
-  Intent.setPackage(StringToJString('com.android.browser')); //设置包名；
-  TAndroidHelper.Activity.startActivity(Intent);
-  }
-  {
-  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(BWLstr)));
-  Intent.setPackage(StringToJString('com.example.android.notepad')); //设置包名；
-  TAndroidHelper.Activity.startActivity(Intent);
-  }
-

 end;