Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

Перевод курсора на новую строку   Найти похожие ветки 

 
STEEL ©   (2005-10-16 15:31) [0]

Есть такая вот процедура
procedure TForm1.LogFileStream(s, filename: string);
begin
with TFileStream.Create(filename,fmOpenWrite+fmShareDenyNone) do
//
try
// Position :=
Seek(0, soFromEnd);

write(pointer(s)^,length(s));
finally
free;
end;
end;

необходимо при каждом обращении дописывать инфу в конец файла, в новую строку.
Пробовал добавлять \n , без результатно


 
Lamer@fools.ua ©   (2005-10-16 17:16) [1]

Добавляйте #13#10.

write(pointer(s)^,length(s));
Write(#13#10, 2);



Страницы: 1 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.046 c
6-1120576487
yuran
2005-07-05 19:14
2005.11.06
Как передать сообщение через интернет:


1-1129711467
saNat
2005-10-19 12:44
2005.11.06
Упорядочение создания компонент


6-1122019736
Senti
2005-07-22 12:08
2005.11.06
Помогите разобраться с вот этим кодом...


14-1129609939
DelphiN!
2005-10-18 08:32
2005.11.06
Выделить из предложения все глаголы


2-1129042250
Dofin
2005-10-11 18:50
2005.11.06
Как в SQL запрос подставить значение Edit1.Text?