66板

doom4ster

2018-09-19 b012fccf647c4d253174e5dfcdea4d15335c3436

 ErrList.pas

@@ -5,7 +5,8 @@
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,inifiles,
  iisUnit,iis_ImageProcess, EnImgScr,mpsBarco,BarcodesFinder, EnMisc, EnDiGrph;
  iisUnit,iis_ImageProcess, EnImgScr,mpsBarco,BarcodesFinder, EnMisc, EnDiGrph,
  LogFile;

type
  TErrlistForm = class(TForm)
@@ -39,6 +40,7 @@
    ImageScrollBox2: TImageScrollBox;
    ImageScrollBox3: TImageScrollBox;
    Button1: TButton;
    LogFile1: TLogFile;
    procedure ExitBtClick(Sender: TObject);
    procedure ImmediateBtClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
@@ -103,7 +105,8 @@
    Procedure ShowRelaOMRErr(Relaidx:Integer); //µe­±¤W¨q¥XÃö«YOMRÀˮ֥¢±Ñ
    Procedure GetOMRErrini(Index:String); //¨úÀˮ֥¢±Ñini
    Procedure InitialData;
    procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);  //«ì´_¦¨¥¼¿ï¨úª¬ºA
    procedure ImageScrollBox1NewGraphic(const Graphic: TDibGraphic);
    function logTimeString: String;  //«ì´_¦¨¥¼¿ï¨úª¬ºA
  public
    { Public declarations }
    iniPath : String;
@@ -348,6 +351,12 @@
procedure TErrlistForm.ImmediateBtClick(Sender: TObject);
begin
  ModalResult := mrOK;
  LogFile1.LogToFile(logTimeString+'¥ß§Y°e¥ó');
end;

function TErrlistForm.logTimeString: String;
begin
Result:=FormatDateTime('yyyymmdd hh:mm:ss',now)+'  ';
end;

procedure TErrlistForm.RelaNextBtClick(Sender: TObject);