zlog.pas

来自「机器人足球赛比赛平台源代码」· PAS 代码 · 共 28 行

unit zlog;

interface

uses Classes, Sysutils;

const LOGFILENAME = 'C:\robot.log';

procedure AddLog(sItem :string);

implementation


procedure AddLog(sItem :string);
var
  sl : TStrings;
begin
  sl := TStringlist.Create;
  if FileExists(LOGFILENAME) then
  begin
    sl.LoadFromFile(LOGFILENAME);
    sl.Add(format('%s %s',[sItem, DateTimeToStr(Now)]));
  end;
  sl.SaveToFile(LOGFILENAME);
end;

end.