Übergabe von dynamischen Arrays an Prozeduren

[Helmi]

Hallo,

hier mal die geänderten Codestellen:

Main.pas:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;                                                         //<== unit2 entfernt

type
  TDatenfelder = record
     a, b: extended;
     end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Aus(var d: array of tDatenfelder);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses unit2;                                                                  //<== neu hinzugefügt

und in der Unit2.pas:

Delphi-Quellcode:

unit unit2;


interface
uses Dialogs, SysUtils, main;                                                //<== main hinzugefügt
                                                                             //<== type-deklaration entfernt
  procedure Auswertung(var d: array of tDatenfelder);

implementation

procedure Auswertung(var d: array of tDatenfelder);
Begin

  showmessage(inttostr(low(d)) +' bis ' + inttostr(high(d)));
End;

end.

[edit]
das geänderte Projekt angehängt!
[/edit]