unit4.~pas

数字电路故障诊断系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit5 ;

type
  TForm4 = class(TForm)
    testorder: TButton;
    enterdiagnosis: TButton;
    Label1: TLabel;
    orderoutput: TEdit;
    Label2: TLabel;
    procedure testorderClick(Sender: TObject);
    procedure enterdiagnosisClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.testorderClick(Sender: TObject);
   var
    total_fault,i,j:integer;
    temp,s:string;
    fault:array [1..5] of string ;    //检测到的故障
    test:array [1..5]of string;
begin
    fault[1]:='A';
    fault[2]:='bDei';  //故障附值
    fault[3]:='aCei';
    fault[4]:='abDei';
    fault[5]:='co';

    total_fault:=9;
    test[1]:='t1';           //测试码附值
    test[2]:='t2';
    test[3]:='t3';
    test[4]:='t4';
    test[5]:='t5';

    for i:=1 to 5 do
     for j:=i+1 to 5 do
       begin
         if abs(length(fault[i])-(total_fault)div 2)>abs(length(fault[j])-(total_fault)div 2)then
          begin
            temp:=test[i];
            test[i]:=test[j];
            test[j]:=temp;
          end;
       end;
     s:='';
     for i:=1 to 5 do
     begin
      s:=s+test[i];
      if i<5 then s:=s+'，';
     end;
     orderoutput.Text:=s;
end;

procedure TForm4.enterdiagnosisClick(Sender: TObject);
begin
    form5.Show;
end;

end.