1:把不要删除的记录取出来,重新生成一个同名文件,覆盖原来的文件。
2:
procedure TXXXX.Search(const AName: string);
var
FileRec: TFileRec; //假设这是你的记录,且有一个Name字段
begin
ReSet(F); //f是 file of FileRec
while not Eof(f) do
begin
Read(F, FileRec);
if FileRec.name = AName then
begin
//你的处理
break;
end;
end;
end;
2:
procedure TXXXX.Search(const AName: string);
var
FileRec: TFileRec; //假设这是你的记录,且有一个Name字段
begin
ReSet(F); //f是 file of FileRec
while not Eof(f) do
begin
Read(F, FileRec);
if FileRec.name = AName then
begin
//你的处理
break;
end;
end;
end;
解决方案 »
- 我用OPENdialog打开文件后,当前目录变成了这个打开文件的目录,不是我的程序的目录了,
- 三层数据库 多用户访问问题
- 急:高分求解难题,聊上几句
- ---->>>>关于用delphi发邮件的问题,回复即有分!!
- 如何在程序中模拟 alt+tab 按键
- 动态数组作为函数的参数传递问题
- 如何取得Windows的安装目录?
- 关于控件StringGrid的实现效果!急!!!急!!!
- 我想问问计算机自考的信息!!各位大哥大姐帮帮忙啊!
- 触发器问题,求救!
- 一个菜问题:在DELPHI下怎样模拟键盘击键呀?
- 100分!!给我找出来!!!vcl类图!!不可能没有这个东西吧!!!!vcl类图!!很全的那种!!图型的那种!!应该有的 !!!
你可以用seek或者position去定位记录
如果你知道要查找的记录的位置的话就直接seek(位置 - 1)就可以了。