Dim dtstart, dtend As Long
Dim total As Period
Dim testlist As List
testlist.Initialize
For i = 0 To 500000
testlist.Add("Line "&i)
Next
dtstart = DateTime.Now
lv.Clear
For i = 0 To testlist.Size-1
lv.AddSingleLine(testlist.Get(i))
Next
dtend = DateTime.Now
total = DateUtils.PeriodBetween(dtstart,dtend)
Log("Difflist="&total.Hours&":"&total.Minutes&":"&total.Seconds&".")
lv.Clear
Dim testmap As Map
testmap.Initialize
For i = 0 To 500000
testmap.Put(i,"Line "&i)
Next
dtstart = DateTime.Now
lv.Clear
For i = 0 To testmap.Size-1
lv.AddSingleLine(testmap.Get(i))
Next
dtend = DateTime.Now
total = DateUtils.PeriodBetween(dtstart,dtend)
Log("Diffmap="&total.Hours&":"&total.Minutes&":"&total.Seconds&".")