Changeset 53 for oup/current/Tools

Timestamp:

Dec 24, 2006, 12:36:07 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/Template.pas (modified) (2 diffs)

oup/current/Tools/Template.pas

@@ -84 +84 @@
   i:    LongWord;
   exts: TStringArray;
-f, c1,c2: Int64;
-time1,time2,time3: Double;
-begin
-QueryPerformanceFrequency(f);
-QueryPerformanceCounter(c1);
+begin
   combo_extension.Items.Clear;
   combo_extension.Items.Add('_All files_ (' +
@@ -102 +98 @@
     end else
       combo_extension.Items.Add(exts[i]);
-QueryPerformanceCounter(c2);
-time1 := (c2 - c1) / f;
   combo_extension.ItemIndex := 0;
   combo_extensionClick(Self);
-QueryPerformanceCounter(c1);
-time2 := (c1 - c2) / f;
-ShowMessage(FloatToStr(time1) +#13+#10+ FloatToStr(time2));
 end;