Експорт інформації з довідника одиниць виміру в файл

Файл: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;