unit analyserMW;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,
engine, faults, StdCtrls, ExtCtrls, ComCtrls, ToolWin;
type
TForm1 =
class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
SetFileBase1: TMenuItem;
Colors1: TMenuItem;
Analyse1: TMenuItem;
Panel1: TPanel;
ListBox1: TListBox;
Label1: TLabel;
Panel2: TPanel;
ListBox2: TListBox;
Label2: TLabel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
ListBox3: TListBox;
StatusBar1: TStatusBar;
PaintBox1: TPaintBox;
Label3: TLabel;
Panel7: TPanel;
PaintBox2: TPaintBox;
procedure SetFileBase1Click(Sender: TObject);
procedure Colors1Click(Sender: TObject);
procedure Analyse1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure PaintBox2Paint(Sender: TObject);
private
{ Private declarations }
dhh, dhc: integer;
hindex:
array[0..6]
of byte;
cfn:
string;
procedure readfile(s:
string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses fileselector;
{$R *.dfm}
procedure TForm1.SetFileBase1Click(Sender: TObject);
begin
if filelist.showmodal = mrok
then begin;
end;
end;
procedure TForm1.Colors1Click(Sender: TObject);
begin
if colorcode.showmodal= mrok
then begin;
end;
end;
procedure tform1.readfile;
var f: textfile; st:
string; c: char;
begin;
assignfile(f,s);
reset(f);
while not eof(f)
do begin;
readln(f,st);
ps.parseline(st);
end;
closefile(f);
end;
procedure TForm1.Analyse1Click(Sender: TObject);
var i,n:integer; s:
string;
begin
n:= filelist.nfiles;
ps.reset;
setlength(operations, n);
filenumber:=0;
if n>0
then for i:=0
to n-1
do begin;
if filelist.isfile(i,s)
then begin;
statusbar1.Panels[0].Text:=extractfilename(s);
statusbar1.repaint;
cfn:=s;
readfile(s);
operations[filenumber]:=chip[0].nfl;
inc(filenumber);
statusbar1.Panels[1].Text:=ps.device;
statusbar1.repaint;
end else begin;
{its a comment}
end;
end;
listbox1.clear;
for i:=0
to 255
do begin;
if i=52
then begin;
s:='
q';
end;
chip[i].countfaults;
with chip[i]
do begin;
if (nfaults+ npersistantfaults = 0)
then listbox1.items.add(format('
%3d '+#9+'
%6d',[i, nfaults + npersistantfaults]))
else listbox1.items.add(format('
%3d '+#9+'
%6d'+#9+'
(%d)',[i, nfaults + npersistantfaults, firstfile]))
end;
end;