用delphi7做一个查找文本文件中指定内容并更改的小程序

文本文件打开后，只能是“读”或者“写”二者之一，不能同时读写。所以你的想法不能实现。

变通的方法：另建一个目录，按照你的要求将处理后的文件存入其中。其实，你对文本文件的修改 *** 作并不需要用GUI界面的程序实现，用控制台（console）程序就能完成。所以，用turbo pascal或者freepascal编程就够了，其中会用到dos 单元中的findfirst、findnext过程。

编制delphi控制台程序时，在sysutils单元中也包含 findfirst、findnext过程。

以Delphi7为例

1、运行Delphi

默认会创建一个名为Project1的Application，并且有一个默认的主窗口Form1

2、从控件面板的Standard页中拖一个按钮控件到Form1上，会默认命名为Button1

3、双击Button1，写上

ShowMessage('hello,world!')

4、点击Debug工具栏上的Run按钮，或按F9功能键

5、点击Button1按钮 代码如下：unit

Unit1interfaceuses

Windows,

Messages,

SysUtils,

Variants,

Classes,

Graphics,

Controls,

Forms,

Dialogs,

StdCtrlstype

TForm1

=

class(TForm)

Button1:

TButton

procedure

Button1Click(Sender:

TObject)

private

{

Private

declarations

}

public

{

Public

declarations

}

endvar

Form1:

TForm1implementation{$R

*.dfm}procedure

TForm1.Button1Click(Sender:

TObject)

begin

ShowMessage('Hello,world!')

endend.

刚看到了你Update的这一段，这段从语法上看是没有问题的

但是从数据库结构来看就有问题了，你下Update SQL 的时候没有加条件，也就是将这个Table里的所有的记录全部Update 为一样的数据，但是你这个表的 “用户编码”应该是个唯一索引，这个字段不允许有两个相同的数据，所以就会报错

解决方法你可以给它加个条件如下：

sql.Add('update SysUntUser set 用户编码='''+trim(edit1.Text)+''',//这句开始报错

用户名称='''+trim(edit2.Text)+''',用户密码='''+trim(edit3.Text)+''',单位名称

='''+trim(edit3.Text)''' where 用户编码=''用户编码''')

---