fdg
Delphi
code posted
created at 24 Nov 14:57
Edit
|
Back
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Public Class Test Implements ITest Public Property kommaZahl() As Double Implements ITest.kommaZahl Get Return 1.2 End Get Set(ByVal value As Double) End Set End Property Public Property wort() As String Implements ITest.wort Get Return "test" End Get Set(ByVal value As String) End Set End Property Public Property zahl() As Integer Implements ITest.zahl Get Return 123 End Get Set(ByVal value As Integer) End Set End Property End Class |
634 Bytes in 4 ms with coderay