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;

真琴：「ホントに簡単に出来ちゃうンだネ、ハルコさん」
春子：「そうよ、…お客様来てるのかな？ マコト」
真琴：「うん、サクラさんが、お友達と一緒に…、今日の夕方には帰るの」
春子：「ナニよ、その前からヨク知ってるような言いっぷり…初めて来たンでしょ？」
春子：「ねぇハルコさん、…アタシ、サクラさんに言っておきたいコトが…」
春子：「ン？ ナニを？」
真琴：「…サクラさんは…二年後に大変な病気になっちゃうの…」
春子：「えっ、二年後に病気？ またぁ〜…、そんなコト言えば気分を害するだけ」
真琴：「でも、早くその病気を発見できれば助かるの、だから…」
春子：「それにしても、二年も後なら、言うとしてもまだ早すぎるンじゃないの？」
真琴：「"もし、一年前に発見できてたら治せた"って、お医者さんは言ってた…」
春子：「じゃぁ、今から一年後に言っても間に合うのよね？」
真琴：「サクラさんは、来年の七月にまたココに来てくれるけど…」
春子：「それなら、その時の方がイイと思うヨ、言うのは」
真琴：「そうだネ…うん、…サクラさんは、ココの夕日がすっごく気にいったみたい」
春子：「昨日も今日も気持ち良く晴れたモンね、…ところで、マコト、…」
真琴：「ナニ？ ハルコさん」
春子：「ホントにアタマ大丈夫？^^;」
真琴：「え〜っ？ アタシの話、信じてくれたンじゃナイのぉ？ ハルコさん」

←解決時は質問者本人がここをチェックしてください。

戻る