特定の条件でCSVファイルが開かなくなるのを防ぐには？ (ID:10306)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 にしの様、早速のご指導どうもありがとうございます。 教えていただいたサンプルソースを自分なりに追加して走らせてましたが 同じ結果になってしまいました。 下記が実際の２つのソースとなっております。 見にくくてすみません。上がテキストファイルの読込＆表示機能で下がＣＳＶファイルの読込機能です。 procedure TForm3.Button8Click(Sender: TObject); //入力情報の呼び出し var fstr:string; filelist:tstringlist; i:integer; begin try if OpenDialog1.Execute then begin filelist:=tstringlist.create; fstr:=OpenDialog1.FileName; filelist.LoadFromFile(fstr); for i:=1 to 58 do tedit(form3.FindComponent('edit' + inttostr(i))).text:=filelist[i-1]; labelededit1.text:=filelist[58]; labelededit2.text:=filelist[59]; labelededit4.text:=filelist[60]; labelededit5.text:=filelist[61]; labelededit8.text:=filelist[62]; labelededit10.text:=filelist[63]; labelededit12.text:=filelist[64]; labelededit13.text:=filelist[65]; labelededit17.text:=filelist[66]; labelededit18.text:=filelist[67]; labelededit14.text:=filelist[68]; labelededit15.text:=filelist[69]; form6.LabeledEdit1.text:=filelist[70]; form6.LabeledEdit2.text:=filelist[71]; form6.LabeledEdit3.text:=filelist[72]; form6.LabeledEdit4.text:=filelist[73]; filelist.savetofile(fstr); filelist.Free; end; except showmessage('呼び出しできませんでした。'); end; end; procedure TForm4.FormShow(Sender: TObject); var i:integer; begin //memo1.Visible:=false; //stringgrid1.Visible:=false; combobox1.Style:=csdropdownlist; memo1.Lines.LoadFromFile('GPDB.csv'); for i:=0 to memo1.lines.count-1 do stringgrid1.rows[i].commatext:=memo1.lines[i]; combobox1.Items:=stringgrid1.Cols[0]; combobox1.ItemIndex:=0; end; お手数ですがアドバイスいただきたくお願い申し上げます。 宜しくお願いします。