запись в конец файла

[kate158]

есть у меня такой код:

 
  if not SAVEDialog1.Execute then begin
     exit;
  end
    else
    fName := SAVEDialog1.FileName; 
    AssignFile(f, fName);
    Rewrite(f);  
   try
 for i:=0 to Memo1.Lines.Count - 1 do  
  begin
   E  := CreateOleObject('Excel.Application');
   E.DisplayAlerts  := False;
   s:='';
   writeln(f, (Memo1.Lines[i])); //запись названия файла
     for j:=0 to Length(a)-1 do //цикл по значениям
      begin
       E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
       W := E.WorkBooks.Item[1];
       SH := W.Sheets.Item[1];
       D1 :=  SH.Range[a[j]].Value;
       write(f, (inttostr(d1)+'  ')); // запись значений
       e.quit;
     end;
    end;
   finally
   CloseFile(f);   
 end;
   MessageDlg('данные записаны!',mtInformation,[mbOk],0);
end;

данные записываются как:
'название файла'
значения
как можно записать данные в одну строку?типа
'название файла' значения

[Utkin]

writeln(f, (Memo1.Lines[i])); //запись названия файла

убери эту строку совсем.
А вместо

write(f, (inttostr(d1)+'  ')); // запись значений

пиши

write(f, 'ИМЯ '+Memo1.Lines[i]+' Значение '+inttostr(d1)+'  '); // запись значений

Как-то так.

[uberchel]

Мож так пойдет:

 if not SaveDlg1.Execute then exit
 else
 fName := SAVEDlg1.FileName;
 AssignFile(f, fName);
 Rewrite(f);
 try
  for i:=0 to Memo1.Lines.Count - 1 do
  begin
   E  := CreateOleObject('Excel.Application');
   E.DisplayAlerts  := False; s:='';
   write(f, Memo1.Lines[i] + ' '+ inttostr(d1)+ '  ');
     for j:=0 to Length(a)-1 do //öèêë ïî çíà÷åíèÿì
   begin
    E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
    W := E.WorkBooks.Item[1];
    SH := W.Sheets.Item[1];
    D1 :=  SH.Range[a[j]].Value;
    write(f, (inttostr(d1)+'  ')); // çàïèñü çíà÷åíèé
    e.quit;
   end;
  end;
   finally
   CloseFile(f);
 end;
   MessageDlg('äàííûå çàïèñàíû!',mtInformation,[mbOk],0);
end;