掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
stringreplaceについて (ID：45484)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TTestForm1.Button1Click(Sender: TObject); var s: string; sp100: string; begin sp100 := StringOfChar(' ', 100); s := 'A B' + sp100 + 'C'; Edit1.Text := s; s := StringReplace(s, sp100, #44, [rfReplaceAll]); Edit2.Text := s; end; これで、ご希望通りEdit2には"A B,C"と表示されますよ。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.