Array als var Parameter

[Jacki O]

Hallo,

ich möchte einer Procedure ein Array of Byte übergeben. In der Procedure wird die das Array Sortiert und soll der Aufrufenden Funktion zur weiteren verarbeitung zur ferfügung stehen. Macht man das so ?

Code:

procedure SortArray(var aArray : array of Byte);
begin
//Sortierung durchführen
end;

...

//Aufrufende Funktion
var tArray : array [0..3] of Byte;
    temp   : ^Word;


...
SortArray(tArray);
temp := @tArray;

....

Das funktioniert, aber ist das auch gut so ????

Gruß Jacki

[alcaeus]

Also, die Arrayübergabe passt...aber ich werde nicht schlau aus dem Pointer temp, du definierst nämlich einen Pointer auf eine Variable vom Typ Word. IMHO dürfte das so nicht funktionieren,oder?

[Jacki O]

Hallo,

das Array enthält zahlen die durch die in eine andere Bytereihenfolge gebracht werden sollen. Dannach soll der Inhalt des 'sortierten' Arrays einer Variablen vom Typ Word zugewiesen.

Gruß Jacki

[Luckie]

Delphi-Quellcode:

type
  TMyByteArray = Array of Byte;

procedure Sort(ByteArray: TMyByteArray);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ByteArray: TMyByteArray;
begin
  Sort(ByteArray);
end;

[Jacki O]

Hallo,

sehe ich das richtig, wenn ich das Array global als eigenn Typ deklariere, das ich dann var in der ParameterListe von Sort weglassen kann?

[Luckie]

Ein Array ist automatisch von sich aus ein Zeiger auf eine Speicheradresse. Kuck mal, was das gelbe Hinweisfensterchen anzeigt, wenn du die öffnende Klammer beim Aufruf der Routine schreibst. var anzugeben wäre aber nicht falsch, dann sieht man, dass auch wieder was "rauskommt".

[Jacki O]

Dann ist das doch das selbe, was ich geschrieben habe . Oder ?

[maximov]

Zitat:

Zitat von Jacki O

Dann ist das doch das selbe, was ich geschrieben habe . Oder ?

Nein. Du hast dynamische und statische arrays kombiniert...frag mich nur warum du geschrieben hast, es würde funktionieren? Kann ja eigentlcih garnicht :gruebel:

[Nicodius]

das geht sowieso nicht du MUSST es so wie Luckie machen ;)