блокнот

[Алёна]

подскажите, плиз, как вместо вывода в ексель вывести данные в блокнот:

qobyav.First;

   For i := 1 To qobyav.RecordCount Do

       Begin
       tip:=qobyav.FieldByName('tip').AsInteger;
         if tip=7 then stoim:=450
         else
         if tip=5 then stoim:=500
         else
         if tip=3 then stoim:=700;
           if qobyav.FieldByName('prog_b').AsString=qobyav.FieldByName('prog_e').AsString
         then
         tarif:='День'
         else tarif:='Неделя';
         app.Range['A1:D1'].Interior.Color:=RGB(255,249,187);
         app.Range['A1'].ColumnWidth := 15;
         app.Range['B1'].ColumnWidth := 20;
         app.Range['C1'].ColumnWidth := 20;
         app.Range['D1'].ColumnWidth := 20;
         app.Range['E1'].ColumnWidth := 10;
         app.Range['F1'].ColumnWidth := 20;
         app.Range['G1'].ColumnWidth := 20;
         app.Range['A1:G20'].Borders.LineStyle:=1;
         app.Range['A1:G2'].Font.Bold:=true;
         app.Cells[1,1]:='АОН '+s;
         app.Cells[1,2]:=sDateEdit1.Date;
         app.Cells[1,3]:='Общее кол-во:';
         app.Cells[1,4]:=qobyav.RecordCount;
         app.Cells[2,1]:='№ контракта';
         app.Cells[2,2]:='№ телефона1';
         app.Cells[2,3]:='№ телефона2';
         app.Cells[2,4]:='Тип';
         app.Cells[2,5]:='Кол-во слов';
         app.Cells[2,6]:='Тариф';
         app.Cells[2,7]:='Оплата';
         app.Cells[i+2,1]:=qobyav.FieldByName('ink').AsString;
         app.Cells[i+1,2]:=qobyav.FieldByName('koor1').AsString;
         app.Cells[i+1,3]:=qobyav.FieldByName('koor2').AsString;
         app.Cells[i+1,7]:='тип1';
         app.Cells[i+1,5]:=qobyav.FieldByName('slov').AsString;
         app.Cells[i+1,7]:='оплачено';
         app.Cells[i+1,6]:=tarif;

         qobyav.Next;

       End;

пыталась написать так:

 qwery1.First;
   For i := 1 To qwery1.RecordCount Do
Begin
          a:='AKM';

         b:=FormatDateTime('mm-dd-yyyy',sDateEdit1.Date);
         c:=qobyav.FieldByName('ink').AsString;
         d:=qobyav.FieldByName('koor1').AsString;
         e:=qobyav.FieldByName('koor2').AsString;

       
          AssignFile(f,ExtractFilePath(Application.EXEName)+'exports\'+'1.txt');
      rewrite(f);
      Writeln(f,a,b,#13,c,#13,e,#13,d);
      Closefile(f);

но понимаю, что неверно... наведите на путь истинный

[MaxNik2009]

попробуй так:

var
  sl:TStringList;
  s: string;
begin
  
  sl:=TStringList.Create;
  try
     qwery1.First; 
     For i := 1 To qwery1.RecordCount Do 
     Begin 
          a:='AKM'; 

         b:=FormatDateTime('mm-dd-yyyy',sDateEdit1.Date); 
         c:=qobyav.FieldByName('ink').AsString; 
         d:=qobyav.FieldByName('koor1').AsString; 
         e:=qobyav.FieldByName('koor2').AsString; 
          
         s:= a+ ' ' + b+' '+c+' '+ d+' '+ e;
        sl.Add(s);
       end;
    finally
      if sl.count > 0 then
          sl.SaveToFile('c:\Reult.txt');
     sl.free;
   end;