請問各位先進
大部份的文章都是半型轉全型
不知有沒有方法是全型轉半型的呢

function AlphaToAscii(Source: WideString): String;
var
Alpha : WideString;
Ascii : string;
s1 : string;
I, J: Integer;
begin
Result := '';
Alpha := '－.／０１２３４５６７８９：；＜＝＞？ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ｛＼｝︿─ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ';
ASCII := '-./0123456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^-abcdefghijklmnopqrstuvwxyz';
for I := 1 to Length(Source) do
begin
S1 := copy(Source,i,1);
J := pos(S1, Alpha );
if J > 0 then
begin
Result := Result copy(ASCII,J,1);
end;
end;
end;

------
努力會更接近成功

感謝pceyes的回答

提供另一個全部全形轉半形方式
function TfmImport1.textchange(tt:String):String;
var
Chr : array [0..255] of char;
begin
Windows.LCMapString(GetUserDefaultLCID(),LCMAP_HALFWIDTH,PChar(tt),Length(tt) 1,chr,Sizeof(chr));
Result := Chr;
end;

------
程式沒有這麼難
只是還沒打通其中要絕