Перейти к содержанию
Fire Monkey от А до Я

0xdeadc0de

Пользователи
 Профиль  Обзор контента

  • Постов

    7

  • Зарегистрирован

  • Посещение

 Тип контента 

Сообщения, опубликованные 0xdeadc0de

    [TWebBrowser] Когда появится поддержка TWebBrowser для Windows и OSX?

    в TWebBrowser

    Опубликовано

    Что значит "когда" ?

    Вообще-то текущая версия (собственно как и предыдущие) поддерживает и Windows и MacOS.

    Поэтому Ваш вопрос либо не понятен, либо неуместен вовсе.

     

    Серьезно? Создайте FireMonkey Desktop Application и добавьте на форму сей компонент. Получилось? 

    FireMonkey: стоит ли начинать проект?

    в Консультации

    Опубликовано

    Будет писаться CMS (GUI + SQLite + REST/SOAP APIs) для популярной E-Commerce-платформы с числом пользователей > 100 000. Нужна кросплатформенность на уровне GUI (Windows / OS X). Интересует насколько в настоящий момент стабилен фреймворк, можно ли начинать разработку на нем, не опасаясь, что повылазят небыстрорешаемые проблемы.

    Тормоза с TADTable и SQLite при переборе 100 000 записей

    в TADTable

    Опубликовано

    Наблюдаю жесточайшие тормоза при переборе SQLite-таблицы на 100 000 записей. 
     
    Алгоритм перебора:
    procedure TForm1.btn_ShowAllRecordsClick(Sender: TObject);
var
  FieldID, FieldName: TField;
  I: Integer;
  TableItem: TADTable;
begin
  TableItem := TADTable.Create(nil);
  try
    TableItem.Connection := ADConnection1;
    TableItem.Open('item');
    FieldID := TableItem.FieldByName('id');
    FieldName := TableItem.FieldByName('name');
    TableItem.First;
    I := 1;
    ListBox1.BeginUpdate;
    try
      TableItem.DisableControls;
      try
        while not TableItem.Eof do
        begin
          if I mod 250 = 0 then
            Caption := Format('%d of %d', [I, TableItem.RecordCount]);
          ListBox1.Items.Add(Format('id: %d; name: %s', [FieldId.AsInteger, FieldName.AsString]));
          TableItem.Next;
          Inc(I);
        end;
      finally
        TableItem.EnableControls;
      end;
    finally
      ListBox1.EndUpdate;
    end;
  finally
    TableItem.Free;
  end;
end;
    Первые 7 000 записей перебираются мгновенно. После перебор резко замедляется и дальше выполняется еле-еле. 100 000 записей перебирает около 30 минут. В чем может быть проблема?
×
×
  • Создать...