Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
ВнизЛог файл Найти похожие ветки
← →
Максим (2003-10-13 13:37) [0]Подскажите как сделать простой ЛОГ файл и записывать туда все происходящее ????
← →
Verg (2003-10-13 13:41) [1]Тип text, функция Append....
Мы вообще с файлами умеем работать?
← →
Максим (2003-10-13 13:44) [2]Нет, вот я и спрашиваю !!!!!!!!
← →
Amoeba (2003-10-13 13:53) [3]Сначала поучись работе с файлами. Начинать надо с простого!
← →
han_malign (2003-10-13 13:57) [4]procedure fLogLn(FName, S : String);
var fh : THandle; bw : LongWord;
begin
if Pos(#13#10, S) = 0 then S := S + #13#10;
fh := CreateFile(PChar(FName), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL {or FILE_FLAG_WRITE_THROUGH}, 0);
if fh <> INVALID_HANDLE_VALUE then begin
SetFilePointer(fh, 0, nil, FILE_END);
WriteFile(fh, S[1], Length(S), bw, nil);
CloseHandle(fh);
end;
end;
← →
sts (2003-10-13 13:58) [5]Что-то типа того :
with TFileStream.Create( FileName, fmOpenWrite ) do
try
Seek(0,soFromEnd);
Write(PChar(Str),Length(Str));
finally
Free;
end;
← →
Zergling (2003-10-13 14:04) [6]Ну вот, писать в файлы Максима научили :)
Тепер учите
> записывать туда все происходящее
:-)))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c