delphi手写字符识别.doc
delphi手写字符识别整理 GrNetSpec.Enabled:=true; GrNetSpec.Visible:=true; GrLern.Enabled:=false; plainbuttons_sperren; ocrbuttons_sperren; GrOCRLearn.Visible:=false; GrOCRLearn.Visible:=false; GrSimpleLearn.Visible:=false; GrSimpleLearn.Visible:=false; GrError.Visible:=false; ButSavNet.Enabled:=false; ButReset.Enabled:=false; ImagePat.clientWidth:=250; GrOCRTest.Visible:=false; Image.Visible:=false; rowanz:=Rows.Value+1; AnzGrid.RowCount:=rowanz; AnzGrid.Cells[1,1]:=floattostr(225); AnzGrid.Cells[0,1]:='Input'; AnzGrid.Cells[1,rowanz-1]:=floattostr(26); AnzGrid.Cells[0,rowanz-1]:='Output'; for i:=2 to rowanz-2 do begin AnzGrid.Cells[0,i]:=inttostr(i); AnzGrid.Cells[1,i]:=floattostr(1); end;