CSVインポートについて

解決

りょう 2007-06-19 20:03:30 No: 26758 IP: 192.*.*.*

はじめまして。ただ今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;

編集削除

igy 2007-06-20 00:05:14 No: 26759 IP: 192.*.*.*

Table1.Post;
を
For i :=0 to st.count-1 do
Table1.Fields[i].asstring:=st.strings[i];
の後に追加したらどうなります？

編集削除

＠ 2007-06-20 00:39:22 No: 26760 IP: 192.*.*.*

while do
を

repeat

until

にすれば最後の行が処理されると思うが、どうだか？

編集削除

りょう 2007-06-20 10:24:15 No: 26761 IP: 192.*.*.*

igyさん、＠さん
早速のお返事有難うございます。とても参考になりました。
igyさんのアドバイス頂いた（POST）を使用する事で、
思い通りのＣＳＶインポート処理ができました。
本当に有難うございました。

編集削除