掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CSVインポートについて (ID：26758)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして。ただ今CSVをテーブルに書きこむ処理をしています。 どうしても、最終行だけが書き込むことができません（合計100件のうち99件のみ書込み可能） ロジックは下記の通りになります。どうかご伝授をお願いします。 上略 begin try ASsignfile(csvfile,OpenDialog1.FileName); reset(csvfile); try while (eof(csvfile)=False) do begin readln(csvfile,str); st.commatext:=str; Table1.Append; N12.Enabled:=True; For i :=0 to st.count-1 do Table1.Fields[i].asstring:=st.strings[i]; end; Finally closefile(csvfile); end; Finally st.free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.