TThread.CreateAnonymousThread(
   procedure()
   begin
     TThread.Synchronize(nil,
       procedure()
       begin
       // Bekletme başlangıç
       end);
     try
       TThread.Queue(nil,
         procedure()
         begin
         // Json işleme
         end);
       TThread.Queue(nil,
         procedure()
         begin
          // döngü
         end);
     finally
       TThread.Synchronize(nil,
         procedure()
         begin
          // Bekletme bitiş
         end);
     end;
   end).start;

(15-12-2020, Saat: 17:13)barissagir Adlı Kullanıcıdan Alıntı: Serverdan JSon un gelmesi çok zaman almıyorda bu listeyi döngü ile Listboxa aktarmak çok uzun sürüyor.

(15-12-2020, Saat: 16:47)barissagir Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar

Web Server dan 10.000 adet lik bir JSON ı alıp FDMemtable aktarıyorum.

Burdan da listboxa döngü ile aktardığımda ise hayli vakit alıyor.

Netten araştırdığıma göre threat kullanmalıymışım.

Anladığım kadarı ile 10.000 adet kaydı parti parti yüklemeliyim.
Nasıl yapabilirim.

Örnek olarak Hepsiburada veya Sahibinden.com un uygulamalarında
Listboxı aşağı doğru kaydırdıkça yeni veri yükleniyor.

(16-12-2020, Saat: 15:36)engerex Adlı Kullanıcıdan Alıntı: ListBox'ta virtual mode gibi bir olay var. 1 milyon veriyi işlemesi tahmini bir kaç saniye sürer.

(15-12-2020, Saat: 17:34)mrmarman Adlı Kullanıcıdan Alıntı: API'lerini yeniden araştırın. Pagination ( sayfalama ) terimi ile arama yapın. bir offset ( başlama ) değeri (örneğin 0 )   bir de limit ( sayı ) değeri ( örneğin 50 ) verilir. Bir sonrakinde offset 51 limit yine 50 gibisinden

procedure TislerF.VertScrollBox1ViewportPositionChange(Sender: TObject;
 const OldViewportPosition, NewViewportPosition: TPointF;
 const ContentSizeChanged: Boolean);
begin
 if CompareValue(NewViewportPosition.Y, FlowLayout2.Height-VertScrollBox1.Height)=EqualsValue then
   begin
   islerF.isleriAl('ORDER BY id LIMIT 100 OFFSET ' + islerUNT.KayitNo.ToString);

   end;
end;