Lazarus条形码组件

zwz

当然愿意给你啦！谢谢你的帮助哈，再请教一下，如何把各函数式传回的值 LOG出来，有这样的工具没，那样对比起来很方便，查找错误也不费时了。

bruce0829

没那么困难啦 ~
把你想 log 的变量都丢到下面这个 Function 就可以了
因为值很多, 又在 for loop 中, 用 watch window 或 debug window 中看很累
所以我习惯整批 log 下来, 结束程式后开启 log file 整批比对

例如我认为画条码的座标值可能有问题
Polygon([a,b,c,d]);
我可以在这行之后加入下面这段以监看 a,b,c,d 的内容值
_SaveLog('a.x='+IntToStr(a.x)+',''a.y='+IntToStr(a.y)+','+
          b.x='+IntToStr(a.x)+',''b.y='+IntToStr(b.y)+','+
          c.x='+IntToStr(a.x)+',''c.y='+IntToStr(c.y)+','+
          d.x='+IntToStr(a.x)+',''d.y='+IntToStr(d.y));


procedure _SaveLog(log: string);
var fn: string;
    now_str: string;
    f:textfile;
begin
  fn:='c:\\'+FormatDateTime('yyyymmdd',Now)+'.log';
  if not FileExists(fn) then
  begin
    FileClose(FileCreate(fn));
  end;
  now_str:=FormatDateTime('yyyy-mm-dd hh:nn:ss ',Now);
  AssignFile(f, fn);
  Append(f);
  WriteLn(f, now_str+log);
  CloseFile(f);
end;

zwz

非常不错，收下了，看来bruce0829兄编程功底很扎实哈，希望能从你那里学习到更多精典的东西！

sesamehch

值得学习呀

nodisk

好,支持啊,....

wksys

编译通过，不会使用啊