如何修改与删除记录型文件里的记录

2009-03-10 09:43:45 212 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAR成像处理基本知识2——图像尺寸与回波尺寸的关系阅读本文前，请先了解上一篇文章（SAR成像处理基本知识1——常用专用名词解释） 1. SAR图像尺寸预估方法以C波段2m@20km的SAR图像为例，假设天线中心下视角为35° ，说明图像尺寸的估计方法。 1.1 距离向尺寸估计地距分辨率为2m时，距离向分辨率约为1.15m，则要求信号带宽不小于130MHz，假设信号带宽为150MHz，采样率为180MHz，那么距离向分辨单元为0.833m。地距幅宽为20km时，距离向幅宽约为20*sind(3... 阅读详情

各位高手：
请问怎么样修改和删除“记录类型文件”里的某条记录？
我试过了Write方法，只能添加记录，而不是修改，我是要能覆盖掉原来的记录！还有怎么删除一条记录？代码如下：
procedure ModifyTSInfo();
begin
try
Seek(TSFile,0);//指向第一条记录
While not EOF(TSFile) do
begin
Read(TSFile,TSTemp); //读取数据
if TSTemp.TS_ID=StrToInt(frmTS.edtTS_ID.Text) then
begin
TSTemp.TS_Name:=Pchar(frmTS.edtTS_Name.Text);
TSTemp.TS_IP:=Pchar(frmTS.edtTS_IP.Text);
TSTemp.X:=StrToInt(frmTS.cbX.Text);
TSTemp.Y:=StrToInt(frmTS.cbY.Text);
TSTemp.State_Conn:=0;
TSTemp.State_Error:=0;
Write(TSFile,TSTemp); //写入数据
end;
Seek(TSFile,FilePos(TSFile));
end;
except
On E:Exception do
begin
ExceptionStr:='修改站点信息异常。异常信息：'+E.Message;
Application.MessageBox(PAnsiChar(ExceptionStr),'错误提示',MB_IConError);
end;
end;
end;

记录是这样定义的：
TSRecord=Record
TS_ID:integer;
TS_Name:String[30];
TS_IP:String[20];
X:integer;
Y:integer;
State_Conn:integer;
State_Error:integer;
end;

TSTemp:TSRecord;//定义记录变量
TSFile:File of TSRecord;//定义记录型文件

...全文

Python入门基础教程（非常详细） Python是一门开源免费、通用型的脚本编程语言，它上手简单，功能强大，坚持「极简主义」。Python类库（模块）极其丰富，这使得Python几乎无所不能，不管是传统的Web开发、PC软件开发、Linux运维，还是当下火热的机器学习、大数据分析、网络爬虫，Python都能胜任。这套Python基础教程不是教科书，不会玩弄概念，而是力求口语化和通俗化，让读者尽快入门。如果有小朋友出于兴趣学习Python，请引导他阅读本教程的前半部分，这是基础，可以降低学习成本；... 阅读详情

xiaocongzhi

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

bluespark 2009-03-15

打赏
举报

注意数据结构，删除的是一条记录（一个节点）
要是C++就好了，C++标准库的Vector和List都轻易做到

xiaocongzhi 2009-03-11

打赏
举报

噢，对了怎么能让TTreeView的NodeRoot的标题不能修改！我在TTreeView中添加了一个“根结点”，在运行时只要对着根结点名字，双击就能修改标题！

xiaocongzhi 2009-03-11

打赏
举报

请帮我想想办法，怎样能方便的删除记录！还有：Read函数是不是会修改指针位置！

xiaocongzhi 2009-03-11

打赏
举报

如果把剩下的读出来再写一次，那岂不是会最后一条记录会多出一条重复的！

Harryfin 2009-03-10

打赏
举报

删除的话忘记了，最笨的就是把剩下的都读出来然后再写一次，先想想看

Harryfin 2009-03-10

打赏
举报

删除的话忘记了，最笨的就是把剩下的都读出来然后再写一次，先想想看

xiaocongzhi 2009-03-10

打赏
举报

还有如果我想把某条记录删除怎么操作？

xiaocongzhi 2009-03-10

打赏
举报

procedure ModifyTSInfo();
begin
try
Seek(TSFile,0);//指向第一条记录
While not EOF(TSFile) do
begin
Read(TSFile,TSTemp); //读取数据
if (TSTemp.TS_ID=StrToInt(frmTS.edtTS_ID.Text)) then
begin
TSTemp.TS_ID:=StrToInt(frmTS.edtTS_ID.Text);
TSTemp.TS_Name:=(frmTS.edtTS_Name.Text);
TSTemp.TS_IP:=(frmTS.edtTS_IP.Text);
TSTemp.X:=StrToInt(frmTS.cbX.Text);
TSTemp.Y:=StrToInt(frmTS.cbY.Text);
TSTemp.State_Conn:=0;
TSTemp.State_Error:=0;
Seek(TSFile,FilePos(TSFile)-1);指向当前位置
Write(TSFile,TSTemp);
Seek(TSFile,FilePos(TSFile));//指向下一条，注：这个是在if体内！
end;
end;
我这样改了，居然可以修改了！"Seek(TSFile,FilePos(TSFile));//指向下一条，注：这个是在if体内！"这一句在if体内，那while循环靠什么来向后移动指针！是不是“Read(TSFile,TSTemp);//读取数据”这个Read函数读取完了并会移动指针！

Harryfin 2009-03-10

打赏
举报

不是指向下一条，是指向你要修改的那一条

xiaocongzhi 2009-03-10

打赏
举报

Seek(TSFile,0);//指向第一条记录
While not EOF(TSFile) do
begin
Read(TSFile,TSTemp); //读取数据
if TSTemp.TS_ID=StrToInt(frmTS.edtTS_ID.Text) then
begin
TSTemp.TS_Name:=Pchar(frmTS.edtTS_Name.Text);
TSTemp.TS_IP:=Pchar(frmTS.edtTS_IP.Text);
TSTemp.X:=StrToInt(frmTS.cbX.Text);
TSTemp.Y:=StrToInt(frmTS.cbY.Text);
TSTemp.State_Conn:=0;
TSTemp.State_Error:=0;
Write(TSFile,TSTemp); //写入数据
end;
Seek(TSFile,FilePos(TSFile));//指向下一条记录
end;
其实就是：把记录文件TSFile中 TS_ID字段等于 frmTS.edtTS_ID.Text的记录改为 Edit框中输入的内容！

xiaocongzhi 2009-03-10

打赏
举报

Seek(TSFile,FilePos(TSFile)); //指向下一条记录
代码里有的

Harryfin 2009-03-10

打赏
举报

好久没用这套命令了，不知道有没记错。

write不行吗? help里面的描述应该是可以的：

In Delphi code, Write writes a file to a file component. F is a file variable, and each V is a variable of the same type as the component type of F. For each variable written, “the current file position” is advanced to the next component. If the current file position is at the end of the file (that is, if Eof(F) is true), the file is expanded.

写之前有定位到你要修改的记录吗？

如何修改与删除记录型文件里的记录

相关推荐