Christian Schmitz wrote:
und jetzt machen wir das noch schneller:
dim n as integer
dim a(-1) as string
n=ListBox1.ListCount-1
for i=0 to n
if ListBox1.Selected(i) then
a.Append trim(ListBox1.Cell(i,SpalteINr))
end if
next
EditField2.Text=Join(a,",")
Ja, sowas hatte ich mir auch schon vorgestellt. Allerdings kannte ich
Join() nicht und dachte mir bringt nix, das Array danach zu addieren.
if ListBox1.Selected(i)=true then
ist übrigends ein =true mehr als nötig.
Ja, ist Gewohnheit (und alter Code). Bringt das etwas an Geschwindigkeit?
t=t+(trim(ListBox1.Cell(i,SpalteINr))+",")
mindestens theoretisch schneller als das hier:
t=t+trim(ListBox1.Cell(i,SpalteINr))+","
Weil erst an einen kurzen String ein kurzer String angefügt wird. Im
zweiten Fall wird zwei mal ein kurzer String an einen langen String
angehängt.
Meine Theorie.
MfG, Metti.
PS: Heute teste ich aber nix mehr.
|