Вести с полей, для интересующихся, сочувствующих и сомневающихся.
Простой пример, форма с FDConn, FDQuery и сапортов в составе FDPhysSQLiteDriverLink и FDGUIxWaitCursor. У всех все по-умолчанию.
Таблица вида:
CREATE TABLE `Files` (
`ID` INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT UNIQUE,
`OwnerID` INTEGER NOT NULL,
`Owner` TEXT NOT NULL,
`Version` INTEGER NOT NULL,
`Name` TEXT NOT NULL,
`Name` TEXT NOT NULL,
`Size` INTEGER NOT NULL,
`BeginDWTime` INTEGER NOT NULL,
`EndDWDate` INTEGER NOT NULL,
`isDWComplete` INTEGER NOT NULL,
`isInstalled` INTEGER NOT NULL,
`DCP` TEXT NOT NULL,
`BCP` TEXT NOT NULL,
`RP` TEXT NOT NULL,
`isDA` INTEGER NOT NULL,
`Rank` INTEGER NOT NULL,
`ServerID` INTEGER NOT NULL
);
FDQuery.SQL.Text = 'SELECT * FROM Files' В таблице 697 записей.
Код:
var
i: Integer;
begin
for i := 0 to 999 do
begin
FDQuery.Open;
try
finally
FDQuery.Close;
end;
end;
Дает и не освобождает 7 мб. памяти в ос Андройд... в iOS потери еще больше!