掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストの保存と読み込み (ID:8782)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません、takeさんのを参考にしてみたのですが、よくわからなかったので過去ログを参考にメンバ変数を1つずつ取り出して保存していったら、うまくいきました。読み込みもできました。 書き込み cnt := datalist.Count; fs.WriteBuffer(cnt, SizeOf(cnt)); for i:=0 to datalist.Count-1 do begin datatemp:=Pointer(datalist.Items[i]); ttext:=datatemp.Text; tsize:=Length(ttext); tdate:=datatemp.date; fs.WriteBuffer(tsize, SizeOf(tsize)); fs.WriteBuffer(PChar(ttext)^, Length(ttext)); fs.WriteBuffer(tdate, SizeOf(tdate)); end; 読み込み fs.ReadBuffer(cnt, SizeOf(cnt)); for i:=0 to cnt-1 do begin dataitem:=DataCss.Create; fs.ReadBuffer(tsize, SizeOf(tsize)); SetLength(ttext,tsize); fs.ReadBuffer(PChar(ttext)^, tsize); fs.ReadBuffer(tdate, SizeOf(tdate)); dataitem.Text:=ttext; dataitem.date:=tdate; datalist.Add(dataitem); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.