この発言に対し以下のコメントが寄せられています

#00163　ｆｕｍｉｋａ    さん　RE:文字列中の文字を置き換える





{イカの手続きは文字列 Strに含まれる指定した文字を別の指定した文字に
置き換えます。置き換えられる文字を Char1に渡し、置き換える文字を
Char2に渡します。}

procedure ReplaceCharInString(var Str: string; Char1, Char2: Char);
var
  i: Integer;
begin
  for i:= 1 to Length(Str) do if Str[i]= Char1 then Str[i]:= Char2;
end;


                ☆ Ｈ-Ｔriton (^^) since 1996 ☆
                      Avalon友の会第80008号
     ��玉でも石でもお預かりします FDELPHIサンプル蔵下足札番��

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。