Prozedur anhalten, um Zwischenergebnisse zu sehen

[Sharky]

Hai Futzel,

wenn ich das richtig sehe hast Du bei deinen Änderungen das VAR bei der Methoden deklaration herausgenommen.
Dadurch werden die Änderungen die deine Quicksort-Funktion macht nicht an dein Array "arr" zurückgegeben.

Also einfach mal so ändern ->

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
.
.
    procedure QuickSort(VAR A: array of integer; iLo, iHi: Integer);
.
.
procedure TForm1.QuickSort(VAR A: array of integer; iLo, iHi: Integer);
.
end;