* make blists1 bench more detailed

git-svn-id: trunk@7458 -

tests/bench/blists1.inc

@@ -5,6 +5,9 @@
     For I:=0 to Max-1 do
       L.Add(Pointer(I));
     L.Clear;
+    T2:=Now;
+    Writeln('Add/Clear  Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
+    T1:=Now;
     For I:=0 to Max-1 do
       L.Add(Pointer(I));
     // Hustle
@@ -14,16 +17,22 @@
       K:=Random(Max);
       L.Exchange(J,K);
       end;
+    T2:=Now;
+    Writeln('Add/Hustle Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
+    T1:=Now;
     // Simple search
     For I:=0 to Max-1 do
       begin
       J:=L.IndexOf(Pointer(I));
       end;
+    T2:=Now;
+    Writeln('Search     Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
+    T1:=Now;
     // Simple search and remove
     For I:=Max-1 downto 0 do
       L.Remove(Pointer(I));
     T2:=Now;
-    Writeln('Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
+    Writeln('Remove     Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
   Finally
     L.Free;
   end;