Debugoutについて2

/---------------------------------------------------------------------------
for Code:=1001 to 9999 do
    //東証１部のみ
    if (Sijo(Code)=0)
  then
  begin
    /データ読み込み
    Dnum:=ReadkabuData(Data,'HiAshi',Code);

/（中略）

  if CheckIdoHeikin(CheckEndDno,Para1,Para2,Para3) then begin
    count:=count+1;
    Debugout(count,': ',Code,' ',MeigaraName(Code),' ',data[Dnum,0]);
    end;
/---------------------------------------------------------------------------

これだけでは使えませんが、上記のDebugoutを使うことで検索にヒットした銘柄の

1.順番
2.証券番号
3.銘柄名
4.ヒットした日付

を得ることができます


重要なのはこの部分ですね
count:=count+1;
Debugout(count,': ',Code,' ',MeigaraName(Code),' ',data[Dnum,0]);
end;