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

名前

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

本文 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin with TIniFile.Create('C:\WINDOWS\筑集眺餅\Hoge.ini') do begin for i:=0 to Memo1.Lines.Count-1 do begin WriteString('Hoge','Hogera'+inttostr(i),Memo1.Lines[i]); end; free; end; end;