Лог файл

← →
Максим (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;

Что-то типа того :

with TFileStream.Create( FileName, fmOpenWrite ) do
try
Seek(0,soFromEnd);
Write(PChar(Str),Length(Str));
finally
Free;
end;

Ну вот, писать в файлы Максима научили :)
Тепер учите
> записывать туда все происходящее
:-)))

Лог файл Найти похожие ветки