特定の条件で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;

お手数ですがアドバイスいただきたくお願い申し上げます。
宜しくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る