PROCEDURE ReadFromFile(s: Streams.Stream;
VAR address: Address) : BOOLEAN;
VAR
ok: BOOLEAN;
BEGIN
NEW(address);
ok :=
Read.FieldS(s, address.name) &
Read.FieldS(s, address.email) &
Read.FieldS(s, address.address) &
Read.FieldS(s, address.phone);
Read.LnS(s);
RETURN ok
END ReadFromFile;
PROCEDURE WriteToFile(s: Streams.Stream;
address: Address) : BOOLEAN;
VAR
fieldsep: CHAR;
BEGIN
StreamDisciplines.GetFieldSep(s, fieldsep);
Write.StringS(s, address.name); Write.CharS(s, fieldsep);
Write.StringS(s, address.email); Write.CharS(s, fieldsep);
Write.StringS(s, address.address);
Write.CharS(s, fieldsep);
Write.StringS(s, address.phone); Write.LnS(s);
RETURN s.errors = 0
END WriteToFile;
|