ReDim - wie geht das bei Delphi???

[Phoenix]

Zitat von chrisyFIAE:

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

Delphi-Quellcode:

// oben im Form:
private
  TA: double;
  DF: array of long;
  MAX: long;

function myForm.btnGOClick(sender: TObject);
var i: long;
begin
  MAX := 0 // keine Ahnung was Me.tbMAX is... ;
  setLength(DF, MAX);
  for i := 0 to (MAX - 1) do  // arrays in delphi fangen bei 0 an.. 
  begin
    DF[i] = // hier füllen...;
  end;

  // und hier dann sortieren und die ausgabe-listen füllen...
end;

Edit: Nein, keine EventArgs... dat is delphi, net .NET