全形與半形的轉換 |
|
答題得分者是：zilch
|
|
leeli
初階會員   發表：57 回覆：55 積分：27 註冊：2003-06-25 發送簡訊給我 |
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
leeli, 您好
請試試以下的方法，看看是否符合您的需求。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String str;
int i;
char *NumTable[10]= {"０","１","２","３","４","５","６","７","８","９"};
char *NumTable2[10]= {"Ａ","Ｂ","Ｃ","Ｄ","Ｅ","Ｆ","Ｇ","Ｈ","Ｉ","Ｊ"}; i = Edit1->Text.ToInt();
str = NumTable[i];
Edit2->Text = str; str = NumTable2[i];
Edit3->Text = str;
}
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
zilch
中階會員 發表：5 回覆：87 積分：78 註冊：2002-09-24 發送簡訊給我 |
全->半
AnsiString Zen = "１２３４５６７８９０";
int Len = Zen.Length();
char buf[MAX_PATH];
ZeroMemory( buf, sizeof( buf ) );
LCMapString( GetUserDefaultLCID(), LCMAP_HALFWIDTH, Zen.c_str(), Len, buf, sizeof( buf ) );
AnsiString Han = AnsiString( buf );
半->全
Edit1->Text=Han;
AnsiString Han = "1234567890";
int Len = Han.Length();
char buf[MAX_PATH];
ZeroMemory( buf, sizeof( buf ) );
LCMapString( GetUserDefaultLCID(), LCMAP_FULLWIDTH, Han.c_str(), Len, buf, sizeof( buf ) );
AnsiString Zen = AnsiString( buf );
|
發表時間：2003-07-31 18:38:51
IP:210.80.xxx.xxx 未訂閱
系統時間：2024-05-18 7:04:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |