掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルの入出力について (ID：11740)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 TObjectListとTStringListを使って、ファイルを入出力したいのですが、 StringGridのデータが、以下の場合、*2の部分だけが、登録されてしまいます。 ------------ *1 Bamei := 'はるうらら'; Comment := 'はるが好き'; ----------- *2 Bamei:= 'はいせいこー'; Comment := 'わからん'; ------------ *1*2続けてファイルに入力するにはどうすればいいのでしょうか。 TComment=class(TObject) Bamei:string;//馬名 Comment:string;//コメント end; ------ var TC:TComment; sl:TStringList; nTosu,Code,i:integer; begin TC:=TComment.Create; sl := TStringList.Create; try val(den1.TorokuTosu,nTosu,Code); for i:=0 to nTosu-1 do begin if(StringGrid2.Cells[10,i+1]<>'')then begin//コメントが空白でなければ TC.Bamei:=StringGrid2.Cells[3,i+1]; //Showmessage(TC.Bamei); TC.Comment:=StringGrid2.Cells[10,i+1]; //Showmessage(TC.Comment); ol.Add(TC);//登録 end; end; for i := 0 to ol.Count-1 do begin sl.Add(TComment(ol[i]).Bamei); sl.Add(TComment(ol[i]).Comment); end; sl.SaveToFile('c:\TestBamei.txt'); finally sl.Free; TC.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.