procedure form1.button1Click(Sender:Object);
var
f: textfile;
begin
//定义文件名
assignfile(f,'e:\1.txt');
rewrite(f);
writeln(f,'Test');
CloseFile(f);
end;
-
等级
本版专家分：258结帖率 100% -
下面这段代码，执行到rewrite时，有时报错，有时通过，不知到底是什么原因？
procedure form1.button1Click(Sender:Object);
var
f: textfile;
begin
//定义文件名
assignfile(f,'e:\1.txt');
rewrite(f);
writeln(f,'Test');
CloseFile(f);
end;
展开阅读全文
-
等级
本版专家分：73 -
先判断文件e:\1.txt是否存在，再用rewrite
或者reset.
isfileexist(filename)
-
等级
本版专家分：258
-
这段代码，我一直都可以运行，对于指定的文件不存在，使用rewrite时，就会创建；如果存在，就overwrite文件的内容。只是我今天想改为灵活选择路径，就出错，再恢复为固定路径就不可以了。请那位大虾帮帮忙，我已经困扰了整整一天了，看似简单，但就是不知何固。
-
等级
本版专家分：701 -
灵活选择路径是怎么选择的？是不是选择路径有问题？
-
等级
本版专家分：258
-
这问题我已解决了，确实是灵活选择路径selpath.pas那块出错了，我重新写了代码，就通过了。但我还没有找到原因，我将错误的那段代码粘贴如下，有谁帮分析一下：
unit SelPath;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, FileCtrl;
type
TSelPathFrm = class(TForm)
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
sPath : string;
end;
var
SelPathFrm: TSelPathFrm;
implementation
uses PutUp;
{$R *.dfm}
//取消选定
procedure TSelPathFrm.BitBtn2Click(Sender: TObject);
begin
sPath := '';
PutUpFrm.Efilename.Text := '';
SelPathFrm.Close;
end;
//选定目录
procedure TSelPathFrm.BitBtn1Click(Sender: TObject);
begin
DirectoryListBox1.OpenCurrent;
sPath := DirectoryListBox1.Directory ;
if sPath = '' then
begin
PutUpFrm.Efilename.Text := DirectoryListBox1.Directory ;
end
else
PutUpFrm.Efilename.Text := sPath;
SelPathFrm.Close;
end;
procedure TSelPathFrm.FormCreate(Sender: TObject);
begin
DriveComboBox1.Drive := 'e' ;
DriveComboBox1.DirList := DirectoryListBox1;
DirectoryListBox1.Directory := DriveComboBox1.Drive + 'windows\system\';
sPath := '';
end;
procedure TSelPathFrm.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive := DriveComboBox1.Drive;
end;
end.
-
等级
本版专家分：668
-
文件处理基本的方法。我们按对磁盘上已存在的文件和创建新文件两种操作方式分别说明。
对于磁盘上已经存在的文件，我们的操作方法一般是，用AssignFile对象方法将它和实际文件相连，AssignFile方法的语法是 AssignFile（文件变量，文件名称）。接下来如果要读取文件内容，需要使用Reset（文件变量）打开文件，文件打开后使用相应的过程或函数读取文件内容，对不同的文件类型有不同的读取方法，下面再讲。如果打开文件是为了在文件的末尾进行追加写操作，需要调用Append（文件变量）方法。
创建新文件。创建新文件只能用于写，因为创建的新文件是没有内容可读的。用AssignFile对象方法将文件变量和要创建的文件相连，即 AssignFile（文件变量，要创建的文件名称字符串），然后使用Rewrite（文件变量）方法可创建新的文件。
重要说明：1 在打开已存在的文件时，用户必须考虑要打开的文件可能因各种原因而导致文件可能不存在的情况。也就是说用户应该在打开时检测文件是否存在。有两种方法可检测要打开的文件是否存在，首先可用Delphi提供的fileExists函数，使用例句如下：
if not fileExists('my.dat') then
showmessage('文件不存在');
其次，可在使用Reset后检测IOResult函数的返回值来判断文件是否存在，IOResult函数不需要任何参数。这里先说明一下$I编译开关，此开关控制着I/O（输入/输出）过程中产生的错误信息是否出现，缺省情况下开关处于开的状态，也就是程序会自动提示错误信息。比如我们执行下面两行代码，事实上my.dat文件是不存在的，
assignfile(mf,'my.dat');
reset(mf);
执行的结果会得到一串英文错误信息，告诉你文件不存在。如果在assignfile前面加上一行编译开关{$I-}（抑制提示信息），再运行程序就不会有任何提示。其实，我们即需要给用户提示文件不存在的信息，但又不想使用Delphi自动提供的英文信息，这种情况下需要我们自己编写代码，在Reset过程之后，通过检测IOResult函数的返回值来判断文件是否存在并给出提示信息，由于文件存在时，IOResult函数的返回值为0，所以我们检测它不为0的情况即可，代码如下：
begin
{$I-}
assignfile(mf,'my.dat');
reset(mf);
if IOResult<>0 then
showmessage('文件不存在');
……
end;
- discuz 商业插件、模板收集（华为网盘）
价值100元的根据精华限制用户 20131005(PHP≤5.2) http://dl.vmall.com/c0w1n6ahu0 价值199元的格子铺 2.1加强版 ... 价值180元的用户主题自助 V1.1 ... 价值200元的子域名重定向系统 1.2.5 http://
- 从零到有——我的OA如何成长
早前发文说要分享，马上进入了财务系统...总体来说，就是我在毕业三个月后来到这里，然后从零开始造轮子造了一个还算健全但不算完整的OA系统。 做了不少系统/模块，有很多都能写好多篇文章。毕业后这两年太神奇了，...
- 网站导出20190118
Bookmarks 书签栏 重要网站 ...Artlist.io - Music Licensing For Video, Film &...unity3d插件免费下载 商业资源代购 团购 unity外包 ...我喜欢 Unity - Scripting API: AudioClip 3D模型/环境 unity3...
- 谷歌2017面经题集
发个Google onsite 面经给需要的人。 round 1: 国人大哥， 出了道 merge N 个sorted element list的题， 要写成Generic的形式。 第二题是leetcode 256. Paint House, 只不过他要输出path就是最少cost的具体方案。第...
- 我的Java开发学习之旅------>Java经典面试题
从享受生活的角度上来说：“程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...
- 我的收藏家
Fast Dial www.mscape.cn bbs.csdn.net www.google.cn linux CentOS Pub --- 纯中文 CentOS 攻略站CentOS服务器构建 start [CentOS 中文站] CENT
- 程序员因为女孩而美丽！
作者：陈皓 ... 女程序员是程序员里美丽的风景线，我希望这些女程序员的经历能让我们在这个“重男轻女”的社会中可以给女程员有更多平等的机会...这篇文章的来由是因为Eva在“三个事和三个问题”的评论里问我女孩子是
- SaaS 2.0
SaaS 2.0 现在都在讲转型。外贸出口加工的转型为内销渠道、品牌、设计；造手机的转型做互联网地图位置服务；软件行业早就呼喊向服务转型多年，IT规划、设计、项目管理、测试、培训、运维等等这些服务也都被客户渐渐...
- 自己写的凌乱的笔记
c/s项目(javaSE) client server b/s项目(javaEE)browaer server ASP(2002~2003) b/s对比c/s项目： c/s对客户机比较高, 注册表：C++ C#中有其他的好处；升级麻烦。 b/s：不需要安装，升级很方便； ...
- 什么是微服务
作者：老刘 ...来源：知乎 著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。 一文详解微服务架构本文将介绍微服务架构和相关的组件，介绍他们是什么以及为什么要使用微服务架构和这些组件。...
- 华为网盘——discuz 商业插件、模板收集
密码见：http://www.2zl.com.cn/forum.php?gid=1 价值100元的根据精华限制用户 20131005(PHP≤5.2) http://dl.vmall.com/c0w1n6ahu0 价值199元的格子铺 2.1加强版 ... 价值180元的用户主题自助...h
- 一个不知名前辈的创业史（血泪）
2005年我的第一次软件行业创业，烧掉30万、2年时间打水漂的惨痛教训 我是2000年从黑龙江大学计算机软件专业毕业后到浙江宁波工作的，在大学当了一年网络中心的老师后，感觉自己还是疯狂喜欢软件行业，不太...
- 2019年终总结：好好爱自己
前言:B/S项目关于后面的就没有好好走。
- 张孝祥整理Java就业面试题大全
从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的 工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...
- 张孝祥正在整理Java就业面试题大全
从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...
- 加密逻辑分享
本人java菜鸟一名，工作也快一年了，在工作之余思考了很多，总想自己独立做点东西，可是没有什么好的想法，就在昨天突然想做个密码加密试试，然后就大刀阔斧开整。 代码写完之后测试没问题，打成jar包，引入使用没...
- GT注册大全-终结动态修订版
本次‘GT注册大全-终结动态修订版’的特点：1.仅中文名称共享软件范围来说为国内乃至世界范围最新最全，通用注册信息有效率最高；2.较之前版本删除了N多已完全失效的注册信息，增加了N多新旧有效...4.进一步完善了‘GT
- Hadoop、Hive、Spark 之间是什么关系？
原文：https://mp.weixin.qq.com/s?__biz=MzAwNzIzMDY5OA==&mid=2651424131&idx=1&sn=ae80ad83c3c2f16d406a03e9b47f44ca&... 大数据本身是个很宽泛的概念，Hadoop...
- 这篇文章感触很深，就作为第一篇吧
从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...
- Python3 与 C# 面向对象之～继承与多态 Python3 与 C# 面向对象之～封装 Python3 与 NetCore 基础语法对比...
Python3 与 C# 面向对象之～继承与多态 文章汇总：https://www.cnblogs.com/dotnetcrazy/p/9160514.html 目录： 2.继承 ¶ 2.1.单继承 ¶ 2.2.多继承 ¶ 2.3.C#继承 ¶ 2.4C#接口的多实现 ¶ ......
- java 面试题总结
抽象就是忽略一个主题中与当前目标无关的那些方面，以便更充分地注意与当前目标有关的方面。抽象并不打算了解全部问题，而只是选择其中的一部分，暂时不用部分细节。抽象包括两个方面，一是过程抽象，二是数据抽象。...
- Java考试题
一：单选题 1.下列哪一种叙述是正确的（D）A．abstract修饰符可修饰字段、方法和类B． 抽象方法的body部分必须用一对大括号{ }包住C． 声明抽象方法，大括号可有可无D．声明抽象方法不可写出大括号 2.如下代码...
- Spark-Hadoop、Hive、Spark 之间是什么关系？
http://mp.weixin.qq.com/s?__biz=MzAwNzIzMDY5... 大数据本身是个很宽泛的概念，Hadoop生态圈(或者泛生态圈)基本上都是为了处理超过单机尺度的
- java设计模式
Java设计模式 分类： java学习 2011-09...我希望这本书的阅读者具备最基本的代码编写能力，您是一个初级的coder,可以从中 领会到怎么设计一段优秀的代码；您是一个高级程序员，可以从中全面了解到设计模式以及 Java
- 100家大公司java笔试题汇总(带答案)
B． 抽象方法的body部分必须用一对大括号{ }包住 C． 声明抽象方法，大括号可有可无 D． 声明抽象方法不可写出大括号 2. 如下代码 public class Test { public int aMethod() { static int i = 0;
- （五）2005年我的第一次软件行业创业，烧掉30万、2年时间打水漂的惨痛教训
为了打开业务，我通过老朋友，在宁波找了专门做销售方面的公司做合作一起开发OA项目，我们出技术及人力，他们出一部分开发成本，这样我们就不担心做业务了，每做成一个笔业务我们就收一笔费用，我觉得这个合作模式也...
- Java设计模式
我希望这本书的阅读者具备最基本的代码编写能力，您是一个初级的coder,可以从中 领会到怎么设计一段优秀的代码；您是一个高级程序员，可以从中全面了解到设计模式以及 Java 的边角技术的使用；您是一个顶级的系统...
- QT实战之监控回看系统
本课程基本Qt for windows平台下开发的监控回看界面程序，通过选择界面上的时间和日期可以准确定位观看过去的某一年某一日某个时刻的监控画面，支持对接第三方海康设备的功能，同时也能对于学习QT有很大的帮助。 学会对接第三方设备，学会QT开发，学会界面布局，学会界面设计。
- 基于MATLAB的脑电信号处理.pdf
脑电信号属于非平稳随机信号， 且易受到各种噪声干扰。 本文基于 Matlab 仿真系统，主要研究了小波变换在脑电信号处理方面的应用， 包括小波变换自动阈值去噪处理、 强制去噪处理，以 α波为例，提取小波分解得到的各层频率段的信号，并做了一定的分析和评价。
- 随机森林MATLAB代码
随机森林分类方法的matlab代码实现，包括分类、重要度打分和回归。