Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
| 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 |
|
|
|