Pascal-不写文件
|
你好，帕斯卡大师！
我有一种自定义记录的文件类型：
DBCell = record
Name: string[10];
Surname: string[15];
Balance:integer;
OpenDate: record
year: integer;
month: 1..12;
day:1..31
end;
AccountN: string[10];
end;
DBFile = file of DBCell;
procedure Fopenf(var F:DBFile; var FName:string; var FOpened:boolean);
begin
Assign(F,FName);
rewrite(F);
FOpened:=true;
end;
procedure InsN(var F:DBFile;var cell:DBCell;var FOpened:boolean);
begin
Write(F,cell);
Close(F);
Rewrite(F);
Writeln(\'Added\');
FOpened:=false;
end;
没有找到相关结果
已邀请:
2 个回复
摊揉售
禽兢玫坞劲
截断了文件。您应该使用。 在文件中插入记录后，不需要need4。procedure InsN(var F:DBFile;var cell:DBCell;var FOpened:boolean); begin Write(F,cell); Close(F); Writeln(\'Added\'); FOpened:=false; end;procedure Fopenf(var F:DBFile; var FName:string; var FOpened:boolean); begin Assign(F,FName); append(F); FOpened:=true; end;