5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

2chブラウザ推奨スレ U

437 :koreawatcher ◆9iLyiaWJOQ :04/01/04 02:43 ID:wOnLJ2li
>>435 こんな感じでいいのではないかと。
  if not assigned(thread.dat) then
  begin
    thread.AddRef;
    if assigned(thread.dat) then begin
      tmpDat := thread.DupData;
      Result := Dat2HTML.ToDatOut(dest, tmpDat, startLine, endLine - startLine + 1, thread.ABoneArray);
      tmpDat.Free;
    end;
    thread.Release;
  end else begin
    //空じゃないときも複製しないと表示がおかしくなることは確認済み
    tmpDat := thread.DupData;
    Result := Dat2HTML.ToDatOut(dest, tmpDat, startLine, endLine - startLine + 1, thread.ABoneArray);
    tmpDat.Free;
  end;

207 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)