Скачать: CL | DM;

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

← →
Максим   (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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c