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

黄猿 2022-11-22 15:35:53 No: 150693 IP: 192.*.*.*

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

AAAAA 2022-11-22 15:52:18 No: 150695 IP: 192.*.*.*

uses
StrUtils

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

これで文字置き換え　

HFUKUSHI 2022-11-23 01:10:25 No: 150697 IP: 192.*.*.*

いわゆる半角カタカナはｧｨｩｪｫｬｭｮｯですね(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 00:07:57 No: 150698 IP: 192.*.*.*

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

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 01:00:16 No: 150702 IP: 192.*.*.*

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

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

編集削除