stringgridの保存

解決

tama 2004-02-25 02:04:25 No: 7329

stringgridの内容を保存を下記の手続きで保存しようとしたところ
ファイルは作られているのですが、全くアクセスができません。
削除もrenameもできません。
chkdskとデフラグをかけましたが、効果ありません。
原因と対処法は？(Win-Xp-home,D7-pro)

procedure TForm1.saving(grid:Tstringgrid;   fname: string);
var st:tstringlist;
       i,j,pcol,prow:integer;
       sstr:string;
begin
    st:=tstringlist.create;
    pcol:=grid.colcount;
    prow:=grid.rowcount+2;
    for i:=0 to prow do begin
      sstr:='';
      for j:=0 to pcol do sstr:=sstr+grid.Cells[j,i]+ chr(vk_tab);
      st.add (sstr);
    end;
    st.savetofile(fname);
    st.free;
end;

tama 2004-02-25 02:33:32 No: 7330

再現性がないようなので、DelphiでなくOSの問題かも？
無視して下さい。