Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.240 by h677, Tue Mar 4 15:28:23 2008 UTC revision 1.241 by eggcake, Sun Apr 13 04:20:24 2008 UTC
# Line 257  type Line 257  type
257          //! ファイル名からのスレッド作成日の取得          //! ファイル名からのスレッド作成日の取得
258          function GetCreateDateFromName(FileName: String): TDateTime;          function GetCreateDateFromName(FileName: String): TDateTime;
259          function GetExtpreviewFileName: String;          function GetExtpreviewFileName: String;
260    
261            procedure ShowRefCount(msg: String; unk: IUnknown);
262          end;          end;
263    
264  var  var
# Line 3475  begin Line 3477  begin
3477      Result := UnixToDateTime(unixtime) + OffsetFromUTC;      Result := UnixToDateTime(unixtime) + OffsetFromUTC;
3478  end;  end;
3479    
3480    procedure TGikoSys.ShowRefCount(msg: String; unk: IUnknown);
3481    var
3482        count : integer;
3483    begin
3484        if not Assigned(unk) then
3485            Exit;
3486    
3487    {$IFDEF DEBUG}
3488        try
3489            unk._AddRef;
3490            count := unk._Release;
3491    
3492                    Writeln(msg + ' RefCount=' + IntToStr(count));
3493        except
3494                    Writeln(msg + ' RefCount=exception!!');
3495            end;
3496    {$ENDIF}
3497    end;
3498    
3499  initialization  initialization
3500          GikoSys := TGikoSys.Create;          GikoSys := TGikoSys.Create;
3501    

Legend:
Removed from v.1.240  
changed lines
  Added in v.1.241

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26