如何在Delphi XE7下写一个Android APP

步骤1、移动互联网的兴起让桌面开发黯然失色，例如Delphi就是其中一例。很多DelphiFans在迷茫与痛苦中俳徊了一段时间，终于向java拥抱，正是这个拥抱带来了快乐与痛苦。Borland的兴衰史伤透了这群人，Borland转行了，但DelphiXE7的到来，又让我们看到了希望。让我们用顺手的工具开发我们想要的移动APP就是那么容易的事。步骤2、第一步，安装DelphiXE7的一些注意事项可参考我的前一篇文章。这里我们安装好DelphiXE7后直接从程序栏中启动。步骤3、第二步，在菜单工具栏中单击[File]-->[New]-->[Other]菜单，将进入新建项目的对话框。步骤4、第三步，选择[Multi-DeviceProjects]选项，然后选中[Header/Footer]选项，最后单击[OK]按钮。步骤5、第四步，在d出的文件夹对话框中选择项目文件保存的路径，然后单定[确定]按钮进行。步骤6、第五步，好了，这时新建了一个项目，里面有一个窗体文件。窗体有一个标题栏，文字内容我们自己来修改。步骤7、第六步，我们把设计的图形界观的样式选择为[Android]模式，这样比较直观。步骤8、第七步，这时需要我们选择一下Android手机的屏幕大小，这对分辨率是有影响，请根据开发的目标环境而定。在这里我们选择的是主流5寸屏。步骤9、第八步，我们放进两个Label控件、两个Text控件、两件Button控件，这一步不多讲，从右下角的标签栏拖出就是。然后命名方式根据开发项目组的习惯吧。步骤10、第九步，这时还有一步要做，就是选择移动程序调试的模拟器或真实手机设备。步骤11、第十步，按F9或单击小三角形图标进行编译与运行移动应用程序，在最下方可以看到编译信息及部署信息。步骤12、第十一步，部署需要一到两分钟，我们到Android模拟器看看执行的效果图吧！步骤13、到这里为止，我们就得到了一个空壳的移动应用程序，尽管什么代码都没有写，整个框架就出来

这种方式通常连接一个外部的数据库，第一个参数就是数据库文件,这个数据库不是当前项目中生成的，通常放在项目的Assets目录下，当然也可以在手机内，如上面参数那个目录，前提是那个文件存在且你的程序有访问权限。

另一种使用数据库的方式是，自己创建数据库并创建相应的数据库表,参考下面的代码：

public class DatabaseHelper extends SQLiteOpenHelper {

//构造，调用父类构造，数据库名字，版本号（传入更大的版本号可以让数据库升级，onUpgrade被调用）

public DatabaseHelper(Context context) {

super(context, DatabaseConstant.DATABASE_NAME, null, DatabaseConstant.DATABASE_VERSION)

}

//数据库创建时调用，里面执行表创建语句.

@Override

public void onCreate(SQLiteDatabase db) {

db.execSQL(createVoucherTable())

}

//数据库升级时调用，先删除旧表，在调用onCreate创建表.

@Override

public void onUpgrade(SQLiteDatabase db, int oldVersion, int newVersion) {

db.execSQL("DROP TABLE IF EXISTS " + DatabaseConstant.TABLE_NAME)

onCreate(db)

}

//生成 创建表的SQL语句

private String createVoucherTable() {

StringBuffer sb = new StringBuffer()

sb.append(" CREATE TABLE ").append(DatabaseConstant.TABLE_NAME).append("( ").append(“ID”)

.append(" TEXT PRIMARY KEY, ")

.append(“USER_ID”).append(" INTEGER, ").append(“SMS_CONTENT”).append(" TEXT ) ")

return sb.toString()

}

} 继承SQLiteOpenHelper并实现里面的方法.

之后：

//得到数据库助手类

helper

=

new

DatabaseHelper(context)

//通过助手类，打开一个可读写的数据库连接

SQLiteDatabase

database

=

helper.getReadableDatabase()

//查询表中所有记录

database.query(DatabaseConstant.TABLE_NAME,

null,

null,

null,

null,

null,

null)

---