Forum: Library: Object-Pascal / Delphi-Language
Delphi
by Duffy,
8. Aug 2003
Hallo alle zusammen,
hier noch eine zweite, korrigierte und geänderte Fassung nach den Anregungen von negaH.
function StringMsgToFile(Msg: string;
WithDateTime: Boolean = True;
FileName: TFileName = ''): Boolean;
const
OpenFlags: array of Integer = (fmCreate or fmShareExclusive, fmOpenReadWrite or fmShareExclusive);
var
FileStream:...
Forum: Library: Object-Pascal / Delphi-Language
Delphi
by Duffy,
3. Aug 2003
Hallo alle zusammen,
hier ist mal eine einfache Logfunktion.
function StringMsgToFile(FileName: TFileName;
Msg: string;
WithDateTime: Boolean = True): Boolean;
const
CR = #13;
LF = #10;
CRLF = CR + LF;
var