salut tout le monde ,
Qui peu m'aidez a convertir ces ligne de code Vb en delphi ?
vraiment je me suis coincé !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Dim FES As String * 16
Dim FES_TIME As String * 4
Dim Datum As Date
 
Dim t As Integer
Dim szHelp As String
Dim szHelp2 As String
Dim f As Integer
Dim v As Variant
Dim l As Long
f = FreeFile
    Open App.Path + "\Jugl.db" For Binary Access Read As #f
        Do While Not EOF(f)
            Get #f, , FES
            If EOF(f) Then Exit Do
            Get #f, , FES_TIME
 
            szHelp = ""
            For t = 1 To 4
                szHelp = szHelp + Right("00" + Hex(Asc(Mid(FES_TIME, t, 1))), 2)
            Next
            l = "&H" & szHelp
            Datum = DateAdd("s", l, CDate("01.01.1970"))
            szHelp = ""
            Dim c As Integer
            For t = 1 To 16
                c = Asc(Mid(FES, t, 1))
                szHelp = szHelp + Right("00" + Hex(c), 2)
            Next
 List1.AddItem Format(Datum, "hh:mm:ss dd.mm.yyyy") + " -> " + szHelp
 
        Loop
 
    Close #f
et 
Private Sub Command3_Click()
Dim szFilename As String
Dim t As Integer
Dim szHelp As String
Dim f As Integer
Dim Data() As String
 
    szFilename = App.Path + "\v_fes.txt"
    List1.Clear
 
    szHelp = Space(FileLen(szFilename))
 
    f = FreeFile
    Open szFilename For Binary Access Read As #f
        Get #f, , szHelp
    Close #f
    Data = Split(szHelp, vbCrLf)
 
    For t = 0 To UBound(Data)
        If Trim(Data(t)) <> "" Then
            List1.AddItem Trim(Data(t))
        End If
    Next t
et Merci d'avance