AnsiString GetBigMoney(AnsiString s)
{
  if((s.Length()<=8)&&(s.ToIntDef(0)==0))return "币零元零角整";
  AnsiString odxc,odxs,oszc,oscc,oscc0,int oi,oi0,i;
  double ormb=StrToFloat(s);
  if(ormb==0.00)return "币零元零角整";
  odxc="分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟亿";
  odxs="零壹贰叁肆伍陆柒捌玖";
  oxzc=FloatToStr(abs(ormb));
  i=AnsiPos('.',s);
  osze.Delete(i,1);
  oszzc=Trim(osze);oscc="";oi=0;
for(oi=oszc.Length();oi>0;oi--)
{oscc=odxc.SubString(oi0*2+1.2)+oscc;oscc=odxs.SubString(StrToInt(osze.SubString(oi,1))*2+1,2)+oscc;oi0++; }
oscc++;}
oscc0=" ";
for(oi=1;oi<=oscc.Length();oi=oi+4)
{if(oscc.SubString(oi,2)=="零")
{if(oscc.SubString(oi+2,2)=="万")
{if(oscc0.SubString(oscc0.Length()-3,4)!="亿零")
{if(oscc0.SubString(oscc0.Length()-1,2)==零）
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"万";
else oscc0=oscc0+"万";}
continue;}
if(oscc.SubString(oi+2,2)=="圆")
{
if(oscc0.SubString(oscc0.Length()-1,2)=="零")
oscc0=oscc0.SubString(1,oscc.Length()-2)+"圆";
else oscc0=oscc0+"圆";
continue;
}
if(oscc.SubString(oi+2,2)=="亿";
{
if(oscc0.SubString(oscc0.Length()-1,2)=="零";)
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"亿";
else oscc0=oscc0+"亿";
continue;}
if(oscc0.SubString(oscc0.Length()-1,2)!="零")
oscc0=oscc0+"零";
}
else oscc0=oscc0+oscc.SubString(oi,4);
}
if((oscc0.SubString(oscc0.Length()-3,4)=="圆零"))
{oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";
return "币"+oscc0;
if((oscc0.SubString(oscc0.Length()-3,4)=="角零"))
{oscc0=oscc0.SubString(1,oscc0.Length()-2)+"整";
return "币"+oscc0;
}
if((oscc0.SubString(oscc0.Length()-1,2)=="零"))
oscc0=oscc0.SubString(1,oscc0.Length()-2)+"圆整";
return "币"+oscc0;
}


oscc0

我找不到是怎样被赋值的了
先是前面被定赋空格
后面就对它加万等字符