Changeset 290 for Include/Classes/System


Ignore:
Timestamp:
Aug 15, 2007, 4:17:00 AM (17 years ago)
Author:
dai
Message:

TraceListener.WriteIfメソッドを実装

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Diagnostics/TraceListener.ab

    r246 r290  
    6767            End Sub
    6868
     69            ' 条件をもとに文字列を出力
     70            Sub WriteIf( condition As Boolean, value As Object )
     71                If condition Then
     72                    Write( value )
     73                End If
     74            End Sub
     75            Sub WriteIf( condition As Boolean, message As String )
     76                If condition Then
     77                    Write( message )
     78                End If
     79            End Sub
     80            Sub WriteIf( condition As Boolean, value As Object, category As String )
     81                If condition Then
     82                    Write( value, category )
     83                End If
     84            End Sub
     85            Sub WriteIf( condition As Boolean, message As String, category As String )
     86                If condition Then
     87                    Write( message, category )
     88                End If
     89            End Sub
     90
    6991
    7092            '----------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.