掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.