Pointer, Array, Funktion geht nicht

[schwa226]

Hi,

komm einfach nicht drauf!

Ich habe eine Class mit einer public Funktion die so deklariert ist:

Code:

function  TProgramFunctions.CalcResult(const data: PLongArray): boolean;

PLongArray ist so definert:

Code:

TLongArray = Array of Byte;
PLongArray = ^TLongArray;

nun binde ich die Class über create in meine uMain ein und mache z.B. folgendes:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var  test2: array [0..2] of byte;
begin

   teset2[0] := 123;
   teset2[1] := 47;
   teset2[2] := 85;

  ProgramCalc:=  TProgramFunctions.Create;

  ProgramCalc.CalcResult(@test2);

end;

Ich übergebe somit ja den Pointer meines Arrays. Wenn ich aber nun in meiner CalcResult den Inhalt von data ansehe, steht immer "nicht verfügbarer Wert".

Warum?

[DeddyH]

Sind das nun Fehler beim Tippen, oder wieso heißt Dein Array beim Befüllen teset?

[jaenicke]

Zitat von schwa226:

Ich übergebe somit ja den Pointer meines Arrays. Wenn ich aber nun in meiner CalcResult den Inhalt von data ansehe, steht immer "nicht verfügbarer Wert".

Erstens versuche es einmal mit data^ stattdessen, zweitens ist der Wert im Debugger ggf. nur verfügbar, wenn die Variable auch an der Stelle verwendet wird. Denn sonst wird das ggf. wegoptimiert.

Gibt es denn ein Problem auch bei der Verwendung im Programm?

[schwa226]

Natürlich Tippfehler!

Wenn ich die Funktion Aufraufe sind die 3 Werte drinnen.

Tut leid, aber wie mit data^?

In der Funktion def lässt es mich das nicht machen.

Wenn ich debugge ist von Anfang an nichts in Data drinnen.

Der Pointer wird richtig übergeben, zumindest Pointer vor auf ruf der Funktion = Pointer in der Funktion...

[Dax]

Array of byte <> array[0..2] of byte. Ersteres ist dynamisch, zweiteres immer drei Byte lang. Völlig inkompatibel, ohne sich schwer zu verbiegen...

[Klaus01]

..

Zitat von schwa226:

PLongArray ist so definert:

Delphi-Quellcode:

TLongArray = Array of Byte;
PLongArray = ^TLongArray;

hier ist doch TLongArray (dynanisches Array) schon ein Pointer auf das Array.
PLongArray wäre dann ein Pointer auf einen Pointer.

.. oder irre ich mich da?

Grüße
Klaus

[DeddyH]

Hab ich glatt übersehen. Wenn man schon einen Typ deklariert, sollte man den auch nutzen (wieso eigentlich TLongArray, wenn es ein Array of Byte ist?).

[schwa226]

vielen vielen vielen Dank!!!

Mit TLongArray gehts!!! Pointer des Pointers, man o man!!!!

LongArray nur weil langes/großes (Dynamisches) Array...