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
