示範滾動刷新

Nolan Liao

关于此应用

单纯 Delphi 教学使用，不是 Delphi 开发人员不建议安装，相关操作说明请先观看 YouTube 影片，谢谢。

支援最新 Android 14 版本。
重新编译：Embarcadero RAD Studio 12.1 Version 29.0.51961.7529。 (Android 64+32)
只有支援： 6/7/8/9/10/11/12/13/14 (注意：不支援 5 版本)。

使用 Delphi 10.2 Tokyo 开发 ListView 滚动刷新自动添加下方资料。
示范从 SQLite 资料库动态选取资料，以 ListView 方式呈显资料，并在滚动至最末端时，自动刷新添加下方资料内容。

测试手机：LG Nexus 5X
手机环境：Android 6.0.1
开发环境：RAD Studio 10.2.1 Tokyo Version 25.0.27659.1188
作业系统：Windows 10 专业版 (64 位元)

SQLite 资料库：

CREATE TABLE [Categories] (
[CategoryID] VARCHAR(30) NOT NULL,
[CategoryName] VARCHAR(30) NOT NULL,
CONSTRAINT [Categories_Index] PRIMARY KEY ([CategoryID]));

CREATE TABLE [Products] (
[ProductID] VARCHAR(30) NOT NULL,
[ProductName] VARCHAR(30) NOT NULL,
[UnitPrice] INTEGER NOT NULL,
[Photo] BLOB NOT NULL,
[Description] VARCHAR(30),
CONSTRAINT [Products_Index] PRIMARY KEY ([ProductID]));

CREATE TABLE [MenuList] (
[CategoryID] VARCHAR(30) NOT NULL,
[ProductID] VARCHAR(30) NOT NULL,
CONSTRAINT [Categories_Index] PRIMARY KEY ([CategoryID], [ProductID]));

SELECT
A.CategoryID, A.ProductID, B.CategoryName,
C.ProductName, C.UnitPrice, C.Photo, C.Description
FROM MenuList A, Categories B, Products C
WHERE
(A.CategoryID = B.CategoryID) AND
(A.ProductID = C.ProductID)
ORDER BY A.CategoryID, A.ProductID

Youtube：
https://www.youtube.com/channel/UCdqhXsMD1Vyvp2769FPKCog
博客：
http://nolanliao1965.pixnet.net/blog
http://nolanliao1965.blogspot.tw/
脸书：
https://www.facebook.com/NolanLiao1965
https://www.facebook.com/groups/1903734576514424/
Google+：
https://plus.google.com/114820935539769287269/posts
https://plus.google.com/u/0/communities/114911314106887760525
SlideShare：
http://www.slideshare.net/NolanLiao1965/

隐私权政策：
https://nolanliao1965.pixnet.net/blog/post/356835736-privacypolicy

新变化

重新編譯：Embarcadero RAD Studio 12.3 Version 29.0.55362.2017。(Android 64+32)
只有支援： 6/7/8/9/10/11/12/13/14 (注意：不支援 5 版本)。