Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.042 c