Текущий архив: 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
Время: 1.385 c
