INIファイルのセクション名の変更するには (ID:31159)

名前

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

本文 真琴：「EraseSectionはあるけど…セクション名変更の関数はナイよね？ ハルコさん」 春子：「最新版はどうかな？ でも、そんなの自分で簡単に出来るよ、マコト、こう…」 procedure TForm1.Button1Click(Sender: TObject); var s: string; begin with TFileStream.Create('AppName.ini', fmOpenReadWrite) do try SetLength(s, Size); Read(s[1], Size); s := StringReplace(s, '[TEST4]', '[TEST3]', []); //[TEST4]を[TEST3]に s := StringReplace(s, '[TEST5]', '[TEST4]', []); //[TEST5]を[TEST4]に Position := 0; Write(s[1], Length(s)); Size := Length(s); finally Free; end; end; 真琴：「ホントに簡単に出来ちゃうンだネ、ハルコさん」 春子：「そうよ、…お客様来てるのかな？ マコト」 真琴：「うん、サクラさんが、お友達と一緒に…、今日の夕方には帰るの」 春子：「ナニよ、その前からヨク知ってるような言いっぷり…初めて来たンでしょ？」 春子：「ねぇハルコさん、…アタシ、サクラさんに言っておきたいコトが…」 春子：「ン？ ナニを？」 真琴：「…サクラさんは…二年後に大変な病気になっちゃうの…」 春子：「えっ、二年後に病気？ またぁ〜…、そんなコト言えば気分を害するだけ」 真琴：「でも、早くその病気を発見できれば助かるの、だから…」 春子：「それにしても、二年も後なら、言うとしてもまだ早すぎるンじゃないの？」 真琴：「"もし、一年前に発見できてたら治せた"って、お医者さんは言ってた…」 春子：「じゃぁ、今から一年後に言っても間に合うのよね？」 真琴：「サクラさんは、来年の七月にまたココに来てくれるけど…」 春子：「それなら、その時の方がイイと思うヨ、言うのは」 真琴：「そうだネ…うん、…サクラさんは、ココの夕日がすっごく気にいったみたい」 春子：「昨日も今日も気持ち良く晴れたモンね、…ところで、マコト、…」 真琴：「ナニ？ ハルコさん」 春子：「ホントにアタマ大丈夫？^^;」 真琴：「え〜っ？ アタシの話、信じてくれたンじゃナイのぉ？ ハルコさん」