標籤: 全型


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;