Hallo,
wollte mal ein kleines Programm von VBA in Delphi umschreiben, bleibe aber bei ReDim stecken.
Könnt Ihr mir evtl. helfen?
Hier der VBA-Code:
Delphi-Quellcode:
Dim TA
As Double
Dim
DF()
As Long, MAX
As Long
Private Sub cmdGO_Click()
Dim I
As Long
MAX = Me.tbMAX
ReDim
DF(1
To MAX)
For I = 1
To MAX
DF(I) = Rnd * MAX
Next I
Me.lbUNSORT.List =
DF
TA = Timer
BubbleSort
DF
Me.Caption = Timer - TA
Me.lbSORT.List =
DF
End Sub
Also ich habe gelesen, dass es evtl. mit VarArrayCreate gehen soll, weis aber echt nicht mehr weiter
.
Vielen Dank schonmal im Vorraus für Eure Hilfen!!!
Der Chrisy