Question

问题

我有2个不同的json arrays，如下所示：

1 - 活动列表

{＆＃34; 0000：First Event Name＆＃34;，＆＃34; 0001：Second Event Name＆＃34;，＆＃34; 0002：Third Event Name＆＃34;}

2 - 可用事件列表

{＆＃34; 0001＆＃34;＆＃34; 0002＆＃34;}

然后我需要使用复选框生成包含可用事件的ListBox：

[]第一个活动名称
[x]第二个活动名称
[x]第三个活动名称

给出解决方案

procedure TFormHome.GetEvents(Sender: TObject);
var

    K: Integer;
    Z: Integer;
    ListCount_Events : Integer;
    AvailableList_Count : Integer;

    lb_item: TListBoxItem;

    event_code  : string;
    event_code_1: string;
    event_name  : string;

begin

    // Check if the JSON responses are not nil
    if ((json_response_events <> nil) and (json_response_available_events <> nil)) then
    begin

        ListCount_Events := json_response_events.Count;

        // Get Available List Count
        AvailableList_Count := json_response_available_events.Count;

        try
            // Run a for loop to create the events based on ListCount_Events
            for K := 0 to (ListCount_Events - 1) do
            begin

                // Get complete Event Code
                event_code_1 := StringReplace(json_response_events.Items[K].ToString.Split([':'])[0], '"', '', [rfReplaceAll]);

                // Get complete Event Name
                event_name := StringReplace(json_response_events.Items[K].ToString.Split([':'])[1], '"', '', [rfReplaceAll]);

                // Create the ListBoxItem
                lb_item := TListBoxItem.Create(self);

                // Assign it to the the ListBox component
                lb_item.Parent := lb_notifications;

                // ListBoxItem get the event name
                lb_item.Text := event_name;

                // Remove StyledSettings (Other)
                lb_item.StyledSettings := lb_item.StyledSettings - [TStyledSetting.Other];

                // Remove StyledSettings (FontColor)
                lb_item.StyledSettings := lb_item.StyledSettings - [TStyledSetting.FontColor];

                // Change TextSettings FontColor to default
                lb_item.TextSettings.FontColor := $FF626262;

                // Set selectable to false in order to not permit the user
                // to select multiple items on the List
                lb_item.Selectable := false;

                // Set the appropriated style
                lb_item.StyleLookup := 'listboxitemleftdetail';

                // Run a for loop to check the available events
                for Z := 0 to (AvailableList_Count) do
                begin

                        event_code := StringReplace(json_response_available_events.Items[Z].ToString, '"', '', [rfReplaceAll]);

                        if event_code_1.Contains(event_code) then
                        begin

                            if K < ListCount_Events then
                            begin

                                // Remove StyledSettings (FontColor)
                                lb_item.StyledSettings := lb_item.StyledSettings - [TStyledSetting.FontColor];

                                // Change TextSettings FontColor to available
                                lb_item.TextSettings.FontColor := $FF179ADF;

                                // Set the List CheckBox to checked
                                lb_item.IsChecked := true;
                            end;

                        end;
                end;

            end;

        finally
            begin
                // Call to List start at position 0
                lb_notifications.ItemIndex       := 0;
            end;
        end;

    end;
end;

我认为我的代码闻起来，我想知道为什么并学会做得更好。

欢迎合理的建议！

在Android和iOS加载列表需要太长。
可滚动时，Android上的速度非常慢（但iOS上没有。）

如何加快填写此列表？

Answer 1

根据@birger的建议，用2行简单的代码解决了这个问题：

BeginUpdate;
//
GetEvents;
//
EndUpdate;

如果您使用Delphi，ListBox，ListView等Memo组件，并添加或修改了很多项（行，节点......），组件的性能变得非常慢。这是因为每次更改后都会在屏幕上重新绘制。

BeginUpdate和EndUpdate可防止在添加，删除或插入项目时过度重绘并加快处理时间。

参考：http://www.festra.com/eng/tip-beginupdate.htm

如何加快填充TListBox的速度？

问题

给出解决方案

如何加快填写此列表？

1 个答案: