5,388
社区成员
发帖
与我相关
我的任务
分享小问题小问题，就是有点急！！！
type TMyRecord=record
xx1:string[12];
xx2:string[12];
end;
var
listfile: file of TMyrecord;
我不知道怎么从listfile文件中删除一笔纪录？
xx1:string[12];
xx2:string[12];
end;
var
listfile: file of TMyrecord;
我不知道怎么从listfile文件中删除一笔纪录？
...全文
请发表友善的回复…
发表回复
x_qiang 2001-12-26
- 打赏
- 举报
非常感谢！！我怎么就没想到呢
962veiri 2001-12-26
- 打赏
- 举报
^0^,@_@
MouseBrother 2001-12-26
- 打赏
- 举报
收藏
抱朴守拙 2001-12-26
- 打赏
- 举报
recieve
renren6250 2001-12-26
- 打赏
- 举报
recieve
cobi 2001-12-26
- 打赏
- 举报
agree
blackfiles 2001-12-25
- 打赏
- 举报
同意
王集鹄 2001-12-25
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
type
TMyReocrd = record
X: Integer;
Y: Integer;
end;
var
vReadFile, vWriteFile: file of TMyReocrd;
NewVar: TMyReocrd;
begin
AssignFile(vReadFile, 'C:\Temp\Temp.dat');
Reset(vReadFile);
AssignFile(vWriteFile, 'C:\Temp\Temp.tmp');
Rewrite(vWriteFile);
while not Eof(vReadFile) do begin
Read(vReadFile, NewVar);
if NewVar.X = 1 then Continue;
Write(vWriteFile, NewVar);
ShowMessage(Format('%d,%d', [NewVar.X, NewVar.Y]));
end;
NewVar.X := 1;
NewVar.Y := 2;
Write(vWriteFile, NewVar);
CloseFile(vWriteFile);
CloseFile(vReadFile);
DeleteFile('C:\Temp\Temp.dat');
RenameFile('C:\Temp\Temp.tmp', 'C:\Temp\Temp.dat');
end;
type
TMyReocrd = record
X: Integer;
Y: Integer;
end;
var
vReadFile, vWriteFile: file of TMyReocrd;
NewVar: TMyReocrd;
begin
AssignFile(vReadFile, 'C:\Temp\Temp.dat');
Reset(vReadFile);
AssignFile(vWriteFile, 'C:\Temp\Temp.tmp');
Rewrite(vWriteFile);
while not Eof(vReadFile) do begin
Read(vReadFile, NewVar);
if NewVar.X = 1 then Continue;
Write(vWriteFile, NewVar);
ShowMessage(Format('%d,%d', [NewVar.X, NewVar.Y]));
end;
NewVar.X := 1;
NewVar.Y := 2;
Write(vWriteFile, NewVar);
CloseFile(vWriteFile);
CloseFile(vReadFile);
DeleteFile('C:\Temp\Temp.dat');
RenameFile('C:\Temp\Temp.tmp', 'C:\Temp\Temp.dat');
end;
