掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カタカナ(全角)を数値化するには？ (ID:5802)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > 最初に代入するときが面倒なのが欠点だと言えるでしょう。 上の欠点を改善しました。これの方がいいです。XOOX さん、ありがとうございます。 public function GetCode(ZenKana:string):integer; end; var Form1: TForm1; implementation {$R *.DFM} var KanaArr:array[$8340..$8396] of integer; function TForm1.GetCode(ZenKana: string): integer; begin result := Ord(ZenKana[1]) shl 8 + Ord(Zenkana[2]); end; procedure TForm1.FormCreate(Sender: TObject); begin KanaArr[GetCode('ア')] := 11; KanaArr[GetCode('イ')] := 12; KanaArr[GetCode('ウ')] := 13; KanaArr[GetCode('エ')] := 14; KanaArr[GetCode('オ')] := 15; // とりあえずア行だけためす end; procedure TForm1.Button1Click(Sender: TObject); var s,t:string; ws:WideString; i:integer; begin s := 'イエオアウ'; ws := s; t := ''; for i := 1 to Length(ws) do t := t + IntToStr(kanaArr[GetCode(ws[i])])+' '; Label1.Caption := t; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.