Экспорт информации из справочника единиц измерения в файл

Файл:ExportMeasure.rar

uses Classes, SysUtils;
const
  nl = #$0D#$0A; // последовательность конца строки
var
  i: integer; // итератор
  ei: TEdIzm; // единица измерения
  f: TStringStream; // результирующий файл
  st: string; // строка
begin
  f := TStringStream.Create; // создаем текстовый поток, который запишем в файл
  for i:=0 to gd.EdIzm.Count-1 do // для каждой сущности из единиц измерения
  begin
      ei := gd.EdIzm.GetByNum(i); // получаем ее по порядковому номеру
      st := IntToStr(ei.Id) + '|' + ei.Name + nl; // формируем строку id|name
      f.WriteString(st); // пишем в поток
  end;
  f.SaveToFile('measure_units.txt'); // сохраняем поток в файл
  f.Free; // освобождаем память
end;