From b012fccf647c4d253174e5dfcdea4d15335c3436 Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期三, 19 九月 2018 16:24:23 +0800
Subject: [PATCH] 66板
---
ErrList.pas | 13 +++++++++++--
1 files changed, 11 insertions(+), 2 deletions(-)
diff --git a/ErrList.pas b/ErrList.pas
index a7ef3c0..ed4543d 100644
--- a/ErrList.pas
+++ b/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);
--
Gitblit v1.8.0