±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
°­ÁÂ, ÆÁ, Á¤º¸ °­ÁÂ, ÆÁ, Á¤º¸ ÀÔ´Ï´Ù.
±Û³»¿ë - °­ÁÂ, ÆÁ, Á¤º¸
 ·Î±×(log) ±â·Ï ÇÁ·Î½ÃÁ®
𸮺ê¶ó¿î
(±Ç±¤ÀÏ)
2017-03-10 ¿ÀÀü 12:30:16
Ä«Å×°í¸®: ÆÁ
4168ȸ Á¶È¸



µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
°£´ÜÇÏÁö¸¸ »ó´çÈ÷ À¯¿ëÇÑ ·Î±×±â·Ï ÇÁ·Î½ÃÁ® ÀÔ´Ï´Ù.

¾²±â½ÇÆнàÇѹø´õ Àç½Ãµµ Çϵµ·Ï ÇÏ¿© ·Î±×±â·ÏÀÇ ¾ÈÁ¤¼ºÀ» °­È­ÇÏ¿´½À´Ï´Ù.

procedure Log(s: string);
var
  tf:text;
  LogFileName : string;
begin
  LogFileName := 'c:\Temp\Application.log';
  AssignFile(tf,LogFileName);
  {$i-}
  Append(tf);
  {$i+}

  if IOResult <> 0 then begin
    {$i-}
    Rewrite(tf);
    {$i+}
    if IOResult <> 0 then
      Exit;
  end;

  Writeln(tf,FormatDateTime('hh:nn dd/mm/yyyy : ',Now),s);
  CloseFile(tf);
end;