Delphi 強迫將半型英數字轉換成全型英數字


var
Chr : array [0..255] of char;
begin
// use Windows
LCMapString(
GetUserDefaultLCID(),
LCMAP_FULLWIDTH, // 轉換全型 LCMAP_HALFWIDTH 半型
PChar(Edit2.Text), // 傳入文字
Length(Edit2.Text) + 1,
chr, // 轉換後字串
Sizeof(chr) // 轉換後字串
);
Edit1.Text := Chr;
end;

我要留言

留言

關於 林壽山

林壽山 軟體公司專案經理,第三方支付設計,金流設計,行動支付設計,支付寶,微信,街口支付,信用卡機,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計
本篇發表於 Delphi, 程式設計 並標籤為 , , , 。將永久鏈結加入書籤。