为什么老是出现read语句类型不匹配的错误呢?
procedure TForm1.Button1Click(Sender: TObject);
var c:char;
begin
if opendialog1.Execute then
assignfile(temfile,opendialog1.FileName);
reset(temfile); while not eof(temfile) do
read(temfile,temstr);
closeFile(temfile);
end;
procedure TForm1.Button1Click(Sender: TObject);
var c:char;
begin
if opendialog1.Execute then
assignfile(temfile,opendialog1.FileName);
reset(temfile); while not eof(temfile) do
read(temfile,temstr);
closeFile(temfile);
end;
解决方案 »
- 如何获得两个日期间差几个月,有函数直接实现不?
- 如果截获关于窗体操作的消息
- 请知道的朋友帮我解决:如何判断以下文件格式:word、excel、txt、jpg、bmp等文件格式(注:采用后缀判断不是很准确)
- 一个比较难得问题,非高手不要进来up
- 关于串口通信超时的问题?
- 用InstallShield Express做安装程序时如何知道安装的路径
- COMBOBOX的使用问题??
- 怎样在imgedit1中显示paradox数据库中的图形字段中的图象呢?
- 哪位有dos622的xcopy 请E:[email protected]急用!!!!!!!!
- 如何判断鼠标左右建同时按下?
- 求助~!急
- sql server中同一条记录的其他字段中如何引用id(标识)字段?(在线等)
var
temfile:textfile试试。
var
temfile:textfile;
temstr:string;
试试看吧。