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

Файл:ExportColors.rar

uses Classes, SysUtils;
 const
   razdel='|';
   nl=#$0D#$0A;
 var
   cli:TColorItem;
   i:integer;
   f:TStringStream; 
   st:string;   
 begin    
   f:=TStringStream.Create;                        
   // перший рядок - заголовки
   st:=;
   st:=st+'ID_Color'+розділ;
   st:=st+'Найменування'+razdel;
   st:=st+nl;
   f.WriteString(st);   
   //
   for i:=0 to gd.ColorsDB.Items.Count-1 do
   begin
     cli:=gd.ColorsDB.Items.GetByNum(i);
     st:=;     
     st:=st+inttostr(cli.Id)+razdel+cli.Name+razdel;   
     st:=st+nl;          
     f.WriteString(st);   
   end;    
   f.SaveToFile('colors.txt');
   f.Free;
 end;