Zwei Arrays als Übergabeparameter an procedure?

[Hallo_Thomas]

Wie über gebe ich 2 Array an eine procedure ?


Ich hatte es so probiert

procedure ZaehlerzuWertigkeit(Zeahler,Wert:array of Integer;Var Wertigkeit:array of Integer); bzw. so
procedure ZaehlerzuWertigkeit(Zeahler:array of Integer;Wert:array of Integer;Var Wertigkeit:array of Integer); aber, das will alles nicht


Fehlermeldung: Ungenügende Forward-oder External-Deklaration

[BlackJack]

wieso machst du denn deswegen einen neuen thread auf (hier ist der alte)? und in dem anderen wurde doch auch schon gesagt dass du dir "array of Integer" am besten als neuen typen deklarieren solltest.

p.s.: ach ja und _was genau_ funktioniert eigentlich nicht? (antwort bitte in dem anderen thread )

[Hallo_Thomas]

@BlackJack
Da gings um die Rückgabeparameter die klappen, ich dachte, da es hier um die Übergabeparameter geht und veriedene Variblen, hts nicht direkt was damit zu tun, deswegen nenn neuer Thread.


P.S. Mit TIntArray gehts auch nicht.

[BenjaminH]

Ähm was genau geht denn nicht? Kann nicht Compiliert werden, oder was?

[Hallo_Thomas]

Fehlermeldung: Ungenügende Forward-oder External-Deklaration

[BenjaminH]

Zitat von Hallo_Thomas:

Fehlermeldung: Ungenügende Forward-oder External-Deklaration

Na dann liegts nicht am Array..
wo hast du die Procedur denn hingeschrieben?
vermutlich nur ins Interface..
sobald du sie auch implementierst müsste es funktionieren

[BlackJack]

Zitat von Hallo_Thomas:

Fehlermeldung: Ungenügende Forward-oder External-Deklaration

hast du nur den procedurekopf zufällig nur im interface-teil einer unit stehen und die eigentliche procedur fehlt total?!?

[hanselmansel]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TDynArrayOfInteger = array of Integer;

procedure ZaehlerzuWertigkeit(Zeahler, Wert:TDynArrayOfInteger;Var Wertigkeit:TDynArrayOfInteger);

var
  Form1: TForm1;
  a1, a2, a3 :TDynArrayOfInteger;

implementation

procedure ZaehlerZuWertigkeit(Zeahler, Wert:TDynArrayOfInteger;Var Wertigkeit:TDynArrayOfInteger);
begin
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(a1,2);
SetLength(a2,2);
SetLength(a3,2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ZaehlerZuWertigkeit(a1,a2,a3);
end;

end.

Ist zwar sinnfrei, funktioniert aber auf diese Weise einbahnfrei...

MfG,

hanselmansel

[Hallo_Thomas]

Mein Gott, manch mah is man einfach beknackt