Перевод курсора на новую строку

← →
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);

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