helpunit.~pas

用Delphi写的车牌字符各种特征提取实验系统

unit HelpUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type
  THelpForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    RichEdit2: TRichEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HelpForm: THelpForm;
  Help1:string='                                 综合特征的字符识别技术研究.'
+#13+'本文主要对字符特征提取技术进行了详细的研究，将得到的二值化图像通过空穴 '
+#13+'检出，细化，骨架提取等图像处理技术处理后，进行包括求行投影，列投影，行'
+#13+'列起终点跳跃，分块平均值以及局等特征的提取，再利用距离匹配，字符匹配以 '
+#13+'及神经网络分别对得到的图像进行识别，讨论，并利用统计学方法判断不同字符'
+#13+'在提取不同特征的情况下识别率的高低．      ';
Help2:string='系统制作人:郝励 '
+#13+'2007年5月30日';

implementation

uses MainUnit, ChartUnit, PictureViewUnit, FileListUnit, InformUnit;

{$R *.dfm}

procedure THelpForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
HelpForm.Hide;
TextForm.show;
if TextForm.N3.Checked=True then ChartForm.show
else ChartForm.Hide;
if TextForm.N6.Checked=True then ImageViewForm.show
else ImageViewForm.Hide;
if TextForm.N4.Checked=True then FileListForm.show
else FileListForm.Hide;
if TextForm.N2.Checked=True then TextViewForm.show
else TextViewForm.Hide;
end;

procedure THelpForm.FormShow(Sender: TObject);
begin
Label1.Caption:=Help1;
Label2.Caption:=Help2;
end;

end.