“汉字点阵字库”程序编写

//--------------------------------------------------------------------------
//记录字模
void __fastcall TFrmHanLib::SaveFontBuf()
{
TColor dd;
char ps[MAX_BUF_SIZE];

memset(Font_array,0,sizeof(Font_array));
for(int i=0;i<size;i++)
{
memset(ps,0,sizeof(ps));
for(int j=0;j<size;j++)
{
dd = img1->Canvas->Pixels[j][i];
if(dd != clWhite) //保存非底色的点
Font_array[i][j/8] |= char(0x80 >> (j%8));
}
}
}
//---------------------------------------------------------------------------
//输出字模显示
void __fastcall TFrmHanLib::OutFontBuf()
{
AnsiString ps;
char ch;
TColor dd;
img2->Picture = NULL;

for(int i=0;i<size;i++)
{
for(int j=0;j<size/8;j++)
{
ch=Font_array[i][j];
for( int m=0;m<8;m++)
{
if(((ch&g