Перевод курсора на новую строку [D7, WinXP]
STEEL © (2005-10-16 15:31:00)
Есть такая вот процедура
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:00) [1]
Добавляйте #13#10.
write(pointer(s)^,length(s));
Write(#13#10, 2);
Наверх 
ЧАТ |
Орешник |
|
