Code VCL.NET
Het is dus de loop om de listview te vullen die hier blijkbaar een stuk trager is.
Code:
myPersonList := TPersonList.create;
myPersonList.LoadPersons; //Dit gaat dus snel
for i := 0 to pred(myPersonList.Persons.Count) do
begin
x := TListItem.Create(ListView1.Items);
x.Caption := IntToStr(myPersonList.Person[i].ID);
x.SubItems.Add(myPersonList.Person[i].Name);
x.SubItems.Add(myPersonList.Person[i].FirstName);
ListView1.Items.AddItem(x);
end;
myPersonList.Free;
LockWindowUpdate(0);
Code WinForms ==> betere performantie
Code:
myPersonList := TPersonList.create;
myPersonList.LoadPersons;//Dit gaat dus snel
//Fill the listview
edStartList.Text := (DateTime.Now).ToLongTimeString;
for i := 0 to pred(myPersonList.Persons.Count) do
begin
lstvItem := ListViewItem.Create(Convert.ToString(myPersonList.Person[i].ID));
lstvItem.SubItems.Add(myPersonList.Person[i].Name);
lstvItem.SubItems.Add(myPersonList.Person[i].FirstName);
ListView1.Items.Add(lstvItem);
end;
myPersonList.Free;
Bookmarks