TStringListの保存について (ID:9296)

名前

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

本文 >既存のiniファイルに追加で書き込みたいんです。 それやったらTIniFileかTMemIniFileを継承して自分用のクラスをこさえとくと便利でっせ。 例です。 わいはTMemIniFileが好きなんやけど、今回はTIniFileにしときます。 おかしなとことかあったら指摘してよ。 あと、使い方がわからへんかったらゆうてよ。 unit IniFileEx; interface uses Classes, IniFiles; type TIniFileEx = class(TIniFile) public procedure ReadStrings(const Section: string; List: TStrings); procedure WriteStrings(const Section: string; List: TStrings); end; implementation uses SysUtils; { TIniFileEx } procedure TIniFileEx.ReadStrings(const Section: string; List: TStrings); var Count, i: Integer; begin List.Clear; Count := ReadInteger(Section, 'Count', 0); for i := 0 to Count - 1 do List.Add(ReadString(Section, IntToStr(i), '')); end; procedure TIniFileEx.WriteStrings(const Section: string; List: TStrings); var i: Integer; begin EraseSection(Section); WriteInteger(Section, 'Count', List.Count); for i := 0 to List.Count - 1 do WriteString(Section, IntToStr(i), List[i]); end; end.