QuickSort Problem fast gelöst!

[cool2005]

hi leute...

ich hab in dem programm einen fehler....(da wo das * ist)

Delphi-Quellcode:

unit uData;

interface

uses
  SysUtils, Classes;

type
  TFeld = array[1..8] of double;              
  SortKeyType = double;
  TDaten = class(TDataModule)
  procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
  A : TFeld;
  procedure SortQuick(var A : TFeld; Anz : integer);   **********FEHLER*********
  end;

var
  Daten: TDaten;

implementation

{$R *.dfm}

procedure TDaten.DataModuleCreate(Sender: TObject);           
begin
   A[1]:=5;
   A[2]:=0;
   A[3]:=-4;
   A[4]:=7;
   A[5]:=2151;
   A[6]:=21;
   A[7]:=25;
   A[8]:=17;
end;

procedure SortQuick(var A : TFeld; Anz : integer);
   procedure Sort(var A : TFeld; l, r : integer);
   var
      i, j : integer;
      Help, Pivot : SortKeyType;
   begin
      Pivot := A[(l + r) div 2];
      i := l;
      j := r;
      repeat
         while A[i] < Pivot do
            i := i + 1;
         while Pivot < A[j] do
            j := j - 1;
         if i <= j then
         begin
            Help := A[i];
            A[i] := A[j];
            A[j] := Help;
            i := i + 1;
            j := j - 1;
         end;
      until i>j;
      if l < j then
         Sort(A, l, j);
      if i < r then
         Sort(A, i, r);
   end;
begin
   Sort(A, 1, Anz);
end;

end.

mit der fehlermeldung kann ich aber nix anfangen?!?! 'unsatisfiel forward or external declararion'

bitte um hilfe....

[stefan2005]

hi,
du musst deine SortQuick Procedure so deklarieren:

procedure TFeld.SortQuick(var A : TFeld; Anz : integer);

cu,
stefan2005

[tn249]

du musst vor der procedure deklaration im rumpf noch den klassennamen vor den procedure-bezeichner einfügen

procedure [b]TmyClass.[/b]myprocedure ([...]);

[Luckie]

Warum fängst du deshalb extra einen neuen Thread an?

Hier: http://www.delphipraxis.net/topic48941_quicksort.htm geht es weiter.

G E S C H L O S S E N