在Delphi中构建跨平台应用程序，可以使用Android Studio和Titanium框架。以下是一个简单的示例，展示了如何在Delphi中构建一个跨平台应用程序。
首先，确保已经安装了Android Studio和Titanium框架。然后，创建一个新的Android项目，并选择“Empty Activity”模板。在项目中添加以下代码：
```delphi
unit Android.App;
interface
uses
AndroidAPI.JNIBridge, Android.Content.PM;
type
JObject = interface;
JString = interface(JObject)
['{0DA27950-83A4-417D-968F-000000000000}']
function getString(const paramName: string): JString; stdcall;
end;
implementation
end.
```
接下来，创建一个名为`MainActivity.java`的Java文件，用于与Android设备进行通信。在这个文件中，我们将使用Titanium框架来实现跨平台功能。
```java
package com.example.myapp;
import android.os.Bundle;
import android.widget.TextView;
import org.apache.cordova.*;
import org.apache.cordova.api.*;
import org.json.JSONArray;
import org.json.JSONException;
import org.json.JSONObject;
public class MainActivity extends CordovaWebViewActivity {
private static final String TAG = "MainActivity";
private TextView textView;
@Override
public void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
textView = (TextView) findViewById(R.id.textView);
try {
JSONArray jsonArray = new JSONArray();
for (int i = 0; i < 10; i++) {
JSONObject jsonObject = new JSONObject();
jsonObject.put("name", "Item " + i);
jsonObject.put("price", "$" + i * 10);
jsonArray.put(jsonObject);
}
JSONObject jsonObject = new JSONObject();
jsonObject.put("items", jsonArray);
textView.setText(jsonObject.toString());
} catch (JSONException e) {
e.printStackTrace();
}
}
}
```
最后，在`AndroidManifest.xml`文件中，将CordovaActivity添加到清单中：
```xml
```
现在，运行项目，你应该可以在Android设备上看到一个包含10个项目的列表。这个示例展示了如何在Delphi中构建一个跨平台应用程序，通过使用Android Studio和Titanium框架实现。
