示範滾動刷新

单纯 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