掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストの保存と読み込み (ID：8773)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記のようにクラスでリストを作ってそれをファイルにバイナリで保存したり、読み込んだりしたいのですが。保存の仕方はこれでいいのでしょうか？また、読み込みかたがわからないのですが、どうしたらよいのでしょうか？ type DataCss = class(TObject) Text: String; date: TDateTime; end; var i: integer; fs: TFileStream; dataitem: DataCss; datatemp: DataCss; datalist: TList; begin datalist:=TList.Create; for i:=0 to 10 do begin dataitem:=DataCss.Create; dataitem.Text:='test'; dataitem.date:=now; datalist.Add(dataitem); end; fs:=TFileStream.Create('c:\temp\test.dat', fmCreate); for i:=0 to datalist.Count-1 do begin datatemp:=Pointer(datalist.Items[i]); fs.WriteBuffer(datatemp, SizeOf(datatemp)); end; datalist.Free; fs.Free;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.