|  | 
 
 | 
| 
 | |||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
|  | Опции темы | Поиск в этой теме | Опции просмотра | 
| 
			 
			#1  
			
			
			
			
		 | |||
| 
 | |||
|  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# Последний раз редактировалось lmikle, 26.03.2012 в 17:55. |