帮忙啊!一个在D7里出现的问题,在D6里就能运行通过!

错误代码是  
  There   is   no   overloaded   version   of   'AssignFile'   that   can   be   called   with   these    
   
  源程序代码是  
   
  procedure   TForm1.CreateWav(channels{   1(单声)或者2(立体声)   },   resolution{   8或者16,代表8位或16位声音   }:   word;   rate{   声音频率,如11025,22050,   44100}:   Integer;  
      fn{   对应的文件名称   }:   string);  
  var  
      wf   :   file   of   TWavHeader;  
      wh   :   TWavHeader;  
  begin  
  wh.rId   :=   $46464952;    
  wh.rLen   :=   36;    
  wh.wId   :=   $45564157;    
  wh.fId   :=   $20746d66;    
  wh.fLen   :=   16;    
  wh.wFormatTag   :=   1;    
  wh.nChannels   :=   channels;    
  wh.nSamplesPerSec   :=   rate;    
  wh.nAvgBytesPerSec   :=   channels*rate*(resolution   div   8);  
  wh.nBlockAlign   :=   channels*(resolution   div   8);  
  wh.wBitsPerSample   :=   resolution;  
  wh.dId   :=   $61746164;    
  wh.wSampleLength   :=   0;    
   
  assignfile(wf,fn);   {打开对应文件   }       //////////////////////////错误出现在这里  
  rewrite(wf);   {移动指针到文件头}  
  write(wf,wh);   {写进文件头   }  
  closefile(wf);   {关闭文件   }  
   
  end;  
   
  为什么在D7里就不能通过,在D5,D6里就可以呢!!  
   
  错误代码是  
  There   is   no   overloaded   version   of   'AssignFile'   that   can   be   called   with   these    
   
  我该如何解决? 问题点数：20、回复次数：3Top

1 楼setking（嘉嘉）回复于 2005-11-03 17:38:55 得分 0

怎么连一位好心的都没有~~~~~~~~~Top

2 楼sdzeng（大头鸟）回复于 2005-11-03 18:30:00 得分 20

System.assignfileTop

3 楼setking（嘉嘉）回复于 2005-11-04 09:11:44 得分 0

谢谢!!!!!!!!!!!!!!!!!!!!!!!  
   
  问题已解决!Top

相关问题

• 文件
• 代码
• wh
• wf
• resolution
• 错误
• channels
• rate

• 帖主：setking
• sdzeng

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载