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:

zusammenfalten · markieren

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

SetLength erledigt das für Dich, allerdings sind dabei alle Arrays 0-besiert

......

Hallo,

ich denke Du redest von dynamischen Array und suchst wahrscheinlich setLength.

Grüße
Klaus

huhu,
danke für eure Antworten.
Dann lag ich wohl ziemlich falsch.
Aber wenn ich das richtig lese in der Delphi-Hilfe, dann müsste ich also eine neue Prozedur extra für dieses ReDim beginnen?
Ich weis einfach nicht wo ich dieses DF und dieses 1 To MAX hinstecken soll.

Gruß,
Der Chrisy

Zitat von chrisyFIAE:

zusammenfalten · markieren

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

zusammenfalten · markieren

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

markieren

Code:

Dim DF() As Long
...
ReDim DF(1 To MAX)

markieren

Delphi-Quellcode:

df: array of LongInt;
...
SetLength( df, MAX-1);

und es gibt kein!! ReDim Preserve in delphi

Edit : Nehme alles zurück und behaupte das Gegenteil

Zitat von QuickAndDirty:

und es gibt kein!! ReDim Preserve in delphi

Und was macht SetLength dann? Genau das, was es in Delphi nicht gibt ist ein ReDim ohne Preserve, aber das ist egal, wenn einen die Werte nach dem ReDim eh nicht mehr interessieren.

......

Moin QuickAndDirty,

Zitat von QuickAndDirty:

und es gibt kein!! ReDim Preserve in delphi

Zitat von Delphi-Hilfe zu SetLength:

Existing characters in the string or elements in the array are preserved,

wow, ist das schon immer so ?
Tatsache da ist was all die Jahre an mir vorbeigagengen.