掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全角半角入力 (ID:36862)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
理屈も知らずに使っていますが・・・ 以前私が教えてもらった方法でよければどうぞ。 http://www.wwlnk.com/boheme/delphi/vbtodel/vbfaq/vbd0050.htm を参考にして以下のようにして使っています。 //全角を半角に変換する function MapString(const Source: string; Flag: integer): string; var Chr : array [0..255] of char; begin Windows.LCMapString( GetUserDefaultLCID(), Flag, PChar(Source), Length(Source) + 1, chr, Sizeof(chr) ); Result := chr; Result := Stringreplace(Result,'¥', '\', [rfReplaceAll]);//\はどちらの方向へも変換しないので end; function ZenToHan(const Source: string) : string; begin Result := MapString(Source, LCMAP_HALFWIDTH); end; procedure TForm1.Button1Click(Sender: TObject); var str:string; begin str:= ZenToHan(ComboBox3.Text); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.