说明:
该程序能够从文件中读取学生数据,并且可以将更改后的学生数据写入文件中保存起来。
一、部分代码:
//主程序
begin
e := 0;m := 0;i := 0;j := 0;
sname := '';ssex := '';sage := '';snation := '';sscore := '';{temp2 := '';}n := '';temp := '';
writeln('载入数据..');
//载入数据
assign(stutxt,'stu.txt');
reset(stutxt);
while not eof(stutxt) do
//能进入循环证明有数据
begin
Inc(m);
//开始
readln(stutxt,stu[m].name);
readln(stutxt,stu[m].sex);
readln(stutxt,sage);
val(sage,stu[m].age,j);
readln(stutxt,stu[m].nation);
readln(stutxt,sscore);
val(sscore,stu[m].score,j);
//每读完5行m要加1
end;
writeln('数据载入完毕!');
menu();
write('请选择(按4键调出菜单):');
while true do
begin
readln(n);
val(n,e,i);
//转换成功
if i=0 then
begin
if e=1 then
inputStu(m)
else if e=2 then
outputStu(m)
else if e=3 then
sortStu(m)
else if e=4 then
menu()
else if e=5 then
deleteStu(m)
else if e=6 then
updateStu(m)
else if e=7 then
begin
save2file(m);
writeln('退出!');
break;
end
else if e=8 then
begin
writeln('退出!');
break;
end
else
begin
writeln('没有该选项!');
write('请重新输入:');
continue;
end;
end
//转换失败
else
begin
writeln('您输入的格式不正确!');
write('请重新输入:');
continue;
end;
write('请选择(按4键调出菜单):');
end;
//注意关闭
close(stutxt);
end.
二、运行结果:
1.界面
2.查看从文件中读取的学生信息
3.录入学生信息
4.排序输出
5.修改学生信息
姓名修改
剩余修改与姓名修改类似
6.删除学生信息
7.保存修改并退出
先增加一个学生xxx
保存并退出
重新进入程序,发现上次的更改生效(xxx成功录入)