文字列の置き換え (ID:16815)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 anoneさんが居るのでこっちも!! たぶん、判らないと思いますので、こんな感じです。 -------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var SL:TStringList; begin SL := TStringList.Create; SL.LoadFromFile('d:\sample.txt'); SL.text:=StringReplace(SL.text,edit1.text,edit2.text,[rfReplaceAll]); SL.SaveToFile('d:\sample.txt'); SL.Free; end; --------------------------------------------------------------------- こっちだったらどうしよぉ〜(^_^;) --------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var SL: TStringList; begin SL := TStringList.Create; SL.add(edit1.text); SL.SaveToFile('d:\sample.txt'); SL.Free; end; --------------------------------------------------------------------- StringListを覚えた時が１番楽しかったです。 後は、配列を覚えると楽しさ倍増です。