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

名前

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

本文 > るるとん＠Ｋさんの方法だとIniの読み込み時にどうするのですか？ procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin with TIniFile.Create('C:\WINDOWS\デスクトップ\Hoge.ini') do begin EraseSection('Hoge'); for i:=0 to Memo1.Lines.Count-1 do begin WriteString('Hoge','Hogera'+inttostr(i),Memo1.Lines[i]); end; free; end; end; procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin i:=0; with TIniFile.Create('C:\WINDOWS\デスクトップ\Hoge.ini') do begin Memo1.Lines.Clear; while ValueExists('Hoge','Hogera'+inttostr(i)) do begin Memo1.Lines.Add(ReadString('Hoge','Hogera'+inttostr(i),'')); inc(i); end; free; end; end;