source: trunk/Form/UFormBenchmark.pas@ 24

Last change on this file since 24 was 1, checked in by chronos, 9 years ago
  • Initial development version.
  • Added: Can scan files and disk for damaged sectors.
  • Added: Show map of drive in blocks. Also show scan progress as runtime statistics.
File size: 425 bytes
Line 
1unit UFormBenchmark;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils, FileUtil, TAGraph, Forms, Controls, Graphics, Dialogs;
9
10type
11
12 { TFormBenchmark }
13
14 TFormBenchmark = class(TForm)
15 Chart1: TChart;
16 private
17 { private declarations }
18 public
19 procedure Start;
20 end;
21
22var
23 FormBenchmark: TFormBenchmark;
24
25implementation
26
27{$R *.lfm}
28
29{ TFormBenchmark }
30
31procedure TFormBenchmark.Start;
32begin
33
34end;
35
36end.
37
Note: See TracBrowser for help on using the repository browser.