2,497
社区成员
发帖
与我相关
我的任务
分享
type
TMember = record
Name: string[50];
eMail: string[30];
Posts: LongInt;
end;
var
Members: array [1 .. 50] of TMember;
F: file of TMember;
i: integer;
Member: TMember;
procedure ChangeEMail(const RecN: integer; const NewEMail: string);
var
DummyMember: TMember;
begin
Seek(F, RecN);
Read(F, DummyMember);
DummyMember.eMail := NewEMail;
Write(F, DummyMember);
end;
begin
// 写
AssignFile(F, 'members.dat');
Rewrite(F);
try
for i := 1 to 50 do
Write(F, Members[i]);
finally
CloseFile(F);
end;
// 读
AssignFile(F, 'members.dat');
Reset(F);
try
while not Eof(F) do
begin
Read(F, Member);
{ DoSomethingWithMember; }
end;
finally
CloseFile(F);
end;