Z
zla
Unregistered / Unconfirmed
GUEST, unregistred user!
我的文件是这样定义的:
MyFile : file of byte;
现在我想删除(0--1021)的内容,请问我该如何做??
写入
var
F : file of char;
Student : TStudent;
begin
AppPath := ExtractFilePath(Application.ExeName)+'abc.dat';
AssignFile(F,appPath);
reset(F);
// Student.Name :='系统圆明园发';
Student.Name := Encrypt('系统圆明园发abc',2);
Student.sex := Encrypt('男',2);
Student.Address := Encrypt('china',2);
BlockWrite(F,student,sizeof(TStudent));
CloseFile(F);
end;
删除某条,我该如何做呢?
MyFile : file of byte;
现在我想删除(0--1021)的内容,请问我该如何做??
写入
var
F : file of char;
Student : TStudent;
begin
AppPath := ExtractFilePath(Application.ExeName)+'abc.dat';
AssignFile(F,appPath);
reset(F);
// Student.Name :='系统圆明园发';
Student.Name := Encrypt('系统圆明园发abc',2);
Student.sex := Encrypt('男',2);
Student.Address := Encrypt('china',2);
BlockWrite(F,student,sizeof(TStudent));
CloseFile(F);
end;
删除某条,我该如何做呢?