
26.03.2012, 17:53
|
Новичок
|
|
Регистрация: 07.02.2012
Сообщения: 53
Репутация: 10
|
|
CSV файл не записывает в одну строку
Почему с таким кодом
Код:
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#
|