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