Changeset 290 for Include/Classes

Timestamp:

Aug 15, 2007, 4:17:00 AM (17 years ago)

Author:

dai

Message:

TraceListener.WriteIfメソッドを実装

File:

• Include/Classes/System/Diagnostics/TraceListener.ab (modified) (1 diff)

Include/Classes/System/Diagnostics/TraceListener.ab

@@ -67 +67 @@
             End Sub
 
+            ' 条件をもとに文字列を出力
+            Sub WriteIf( condition As Boolean, value As Object )
+                If condition Then
+                    Write( value )
+                End If
+            End Sub
+            Sub WriteIf( condition As Boolean, message As String )
+                If condition Then
+                    Write( message )
+                End If
+            End Sub
+            Sub WriteIf( condition As Boolean, value As Object, category As String )
+                If condition Then
+                    Write( value, category )
+                End If
+            End Sub
+            Sub WriteIf( condition As Boolean, message As String, category As String )
+                If condition Then
+                    Write( message, category )
+                End If
+            End Sub
+
 
             '----------------------------------------------------------------