この発言は
#00162　H-Triton        さんの文字列中の文字を置き換える
に対するコメントです



こんばんは、H-Triton さん。ｆｕｍｉｋａです。


function ReplaceCharInString(S, FindStr, ReplaceStr: string): string;
var
  I, L: Integer;
begin
  Result := '';
  L := Length(FindStr);
  I := AnsiPos(FindStr, S);
  while I <> 0 do begin
    Result := Result + Copy(S, 1, I - 1) + ReplaceStr;
    Delete(S, 1, I + L - 1);
    I := AnsiPos(FindStr, S);
  end;
  Result := Result + S;
end;


Delphi2.0 の場合は、uses に MBUtils を追加して、
AnsiPos を MBPos にします。

　　　　平成９年11月2日(日)　　ｆｕｍｉｋａ(YRK00111@niftyserve.or.jp)
　　         ★☆★　http://www2m.bigloge.ne.jp/~fumika/　★☆★


Original document by ｆｕｍｉｋａ    氏 ID:(YRK00111)

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