StringList内の半角小文字カナを半角カナに変換したい

黄猿 2022-11-23 00:35:53 No: 150693

StringList内の半角小文字カナを半角カナに変換したいので、方法を教えてください。
ちなみに半角小文字カナはどのくらいあるでしょうか。
思いつくのは、ｧｨｩｪｫｯ　ですが、他にあるでしょうか。

AAAAA 2022-11-23 00:52:18 No: 150695

uses
StrUtils

　S := 'ｧｨｩｪｫ';
　S := ReplaceText(S,'ｧ','ｱ');

これで文字置き換え　

HFUKUSHI 2022-11-23 10:10:25 No: 150697

いわゆる半角カタカナはｧｨｩｪｫｬｭｮｯですね(JIS X 0201)。置換はStringReplaceかな。
var
S: String;

S := StringReplace(StringList.Text,'ｧ','ｱ',[rfReplaceAll]);
S := StringReplace(S,'ｨ','ｲ',[rfReplaceAll]);
...
StringList.Text := StringReplace(StringList.Text,'ｯ','ﾂ',[rfReplaceAll]);

Mr.XRAY 2022-11-24 09:07:57 No: 150698

> 思いつくのは、ｧｨｩｪｫｯ　ですが、他にあるでしょうか。

Unicode では，$FF67 から $FF6F の 9 文字のようです．

procedure TForm1.Button1Click(Sender: TObject);
var
  LText  : string;
  LIndex : Integer;
begin
  Memo1.Lines.Clear;

  LText := '';
  for LIndex := $FF67 to $FF6F  do begin
    LText := LText + Chr(LIndex);
  end;
  Memo1.Lines.Add(LText);
end;

Mr.XRAY 2022-12-01 10:00:16 No: 150702

環境が不明なので，
Unicode ( UTF-16 ), Shift_JIS, JIS ( JIS X 0201 ) についてのサンプルを作ってみました．

[ 半角カタカナの小文字を大文字に変換 ]
http://mrxray.on.coocan.jp/Delphi/Others/HankakuKana_ToUpperCase.htm