２ちゃんねるブラウザ「OpenJane」改造総合スレ 3

突然ですが俺の「ここまで〜」は一応ここに付けてます。

UDat2HTML.pas

function TDat2HTML.ToDatOut(dest: TDatOut;
（略）
　　　dat.Consistent := _ToDatOut(dest, dat.Strings[FBlockIndex],
　　　　　　　　　　　　　　　　　FIndex, FLineNumber, datType, AboneArray)
　　　　　　　　　　　　and dat.Consistent;
　　　// 521 ここから
　　　if AboneArray <> nil then
　　　　if AboneArray[FLineNumber] = 4 then
　　　　　dest.WriteItem(PChar(BookMarkHTML),length(BookMarkHTML),ditNORMAL);
　　　// 521 ここまで
　　　Dat2chNextLine(dat);