[Nautilus]

Почему с таким кодом

Код:

procedure CSV_File (FileName: String; separator: char);
var f: TextFile;
    s1, s2, rez: string;
begin
  s1 := Form1.Label3.Caption ;
  s2 := Form1.Label2.Caption ;
  rez := s1 + #35 + s2 + #35;
  AssignFile (f, FileName);
 if FileExists('c:\Ил-2\Титан\SCADA\Тест.csv')  then
 begin
 Reset(f);
 Append(f);
 writeln (f, rez);
 CloseFile(f);
 end;
end;

lmikle: Пользуемся тегами!!!

в CSV файле записывается
16:47:17#1221
#
а хотелось
16:47:17#1221#

[lmikle]

Значит у тебя в Label2,Caption в конце стоит перевод строки. На форме он может быть и не виден, а в строке присутствует.

ЗЫ. А зачем и Reset и Append? Нужно использовать что-то одно.

[friz]

код вроде работает...

Код:

procedure CSV_File (FileName: String; separator: char);
var f: TextFile;
    s1, s2, rez: string;
begin
  s1 := Form1.Label3.Caption ;
  s2 := Form1.Label2.Caption ;
  rez := s1 + #35 + s2 + #35;
  AssignFile (f, FileName);
 if FileExists(FileName)  then
 begin
 Append(f);
 writeln (f, rez);
 CloseFile(f);
 end
 else
 begin
 rewrite(f);
 writeln (f, rez);
 CloseFile(f);
 end;
end;

[Nautilus]

Imikle и friz- спасибочки большое.
Imikle, прости что повторно такое с кодом вытворяю (не оформляю как положено)...