Сохранение/чтение в нетипизированный файл массива используя потоки - Delphi - Ответ 6842892

var
 n: Integer;
..
//Сначала следует записать размер массива
  F.WriteBuffer(Num, SizeOf(Num));
..
// Запись одного эл-та массива
  F.WriteBuffer(MasIcq[num].Uin,SizeOf(MasIcq[num].Uin));
  n := Length(MasIcq[num].Name) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Name)^, n));
  n := Length(MasIcq[num].Mail) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Mail)^, n));
  n := Length(MasIcq[num].Phone) * SizeOf(Char);
  F.WriteBuffer(n, SizeOf(n));
  F.WriteBuffer(PChar(MasIcq[num].Phone)^, n));
..
//Сначала следует прочитать записанный ранее размер массива и подготовить массив соотв.размера
  F.ReadBuffer(Num, SizeOf(Num));
 
// Чтение одного эл-та массива 
  F.ReadBuffer(MasIcq[i].Uin,SizeOf(MasIcq[i].Uin));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Name, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Name)^, n));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Mail, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Mail)^, n));
  F.ReadBuffer(n, SizeOf(n));
  SetLength(MasIcq[i].Phone, n div SizeOf(Char));
  F.ReadBuffer(PChar(MasIcq[i].Phone)^, n));