Re: zu langsamer Code

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Claudius Sailer wrote:

> > n=ListBox1.ListCount-1
> > for i=0 to n
> > if ListBox1.Selected(i)=true then
> > t=t+trim(ListBox1.Cell(i,SpalteINr))+","
> > end if
> > next
> > EditField2.Text=t
>
> vielleicht bringt das ja auch noch was
>
> if ListBox1.Selected(i)=true then t=t+trim(ListBox1.Cell(i,SpalteINr)) 
> +","
Bei 1977 Tabellenzeilen brachte das bei je drei Druchläufen 10 Ticks 
weniger. Bei einer Gesamtdauer von 20 Sekunden ist das 
vernachlässigbar.
MfG, Metti.