Freepascal->Delphi: Pointer als Array?

[DeddyH]

Für P[i]^ müsste das aber ein Pointertyp auf das Array und nicht das Element sein, oder?

[Neutral General]

Es muss P^[i] heißen. Du willst ja das Array und nicht das i-te Element des Array dereferenzieren.

[Codehunter]

Zitat von DeddyH:

Für P[i]^ müsste das aber ein Pointertyp auf das Array und nicht das Element sein, oder?

Genau so sehe ich das auch. Was ich noch in petto hätte wäre die Anzahl der Elemente im Array, die wird der Procedure auch übergeben und wäre hier der Zielwert für die FOR-Schleife. Nur nochmal: Ich habe lediglich den Zeiger auf das erste Element im Array, welcher dereferenziert wieder ein Byte-Typ wäre und eben kein Array. Deshalb kann auch P^[I] eigentlich nicht funktionieren und bringt die selbe Compilermeldung "Array-Typ erforderlich".

Von der Sache her würde ich es so machen:

Delphi-Quellcode:

var
  T2: TPhysicalCharWidths;

begin
  SetLength(T2, AnzahlDerElemente);
  @T2[0]:= P;
end;

Aber so richtig schlüssig erscheint mir das auch nicht. So weiß zwar der Memory-Manager, wie viele Elemente T2 haben soll. Doch dann wird T2 auf eine andere Adresse umgebogen, was eigentlich zu einem Memleak führen müsste.

[Neutral General]

Hallo,

Also ich habe es jetzt mal getestet. himitsu hatte natürlich Recht und es muss P := @T; heißen und nicht P := @T[0];

Bei mir compiliert das hier aber ohne Probleme.
(Der Code kommt von FP und soll in Delphi laufen oder hab ich da was falsch verstanden?)

Delphi-Quellcode:

var t: TTestArray;
    p: PTestArray;
begin
  SetLength(t, 10);
  p := @t;
  // p := @t[0]; compiliert auch, aber funktioniert nicht
  p^[0] := 'A';
  Caption := p^[0];
end;

[Codehunter]

Zitat von Neutral General:

Der Code kommt von FP und soll in Delphi laufen oder hab ich da was falsch verstanden?

Genau. So stehts ja auch im Thread-Titel

Davon abgesehen funktioniert dein Ansatz in sich selbst vielleicht. Aber Du hast einen Zeiger auf das Array verwendet, ich habe aber nur einen Zeiger auf ein Array-Element. Darum funktioniert ein P^[I] bei mir nicht.

Wobei ich ja noch in den Raum stellen muss, dass ich mit D7 Pro arbeite, evtl. ist das in neueren Delphis anders?

[Bummi]

Sorry, für meinen Lapsus mit ^.
Habe ich richtig vertstanden dass Du einen Zeiger auf das erste Element bekommst?
Dann sollte folgendes gehen

Delphi-Quellcode:

type
  TPhysicalCharWidth = Byte;
  TPhysicalCharWidths = Array of TPhysicalCharWidth;
  PPhysicalCharWidth = ^TPhysicalCharWidth;



procedure Proz(p:Pointer;len:Integer);
var

 i:Integer;
begin
   for I := 0 to len - 1 do Showmessage(IntToStr(TPhysicalCharWidths(p)[i]))

end;

procedure TForm3.Button1Click(Sender: TObject);
var
  I: Integer;
  P: PPhysicalCharWidth;
  T: TPhysicalCharWidths;

begin
   SetLength(t,10);
   for i := Low(t) to High(t) do t[i] := i + 17;
   Proz(@T[0],Length(t));
end;

[Codehunter]

Zitat von Bummi:

Habe ich richtig vertstanden dass Du einen Zeiger auf das erste Element bekommst?

Öhm, ja

Zitat von Bummi:

Dann sollte folgendes gehen

Delphi-Quellcode:

type
  TPhysicalCharWidth = Byte;
  TPhysicalCharWidths = Array of TPhysicalCharWidth;
  PPhysicalCharWidth = ^TPhysicalCharWidth;



procedure Proz(p:Pointer;len:Integer);
var

 i:Integer;
begin
   for I := 0 to len - 1 do Showmessage(IntToStr(TPhysicalCharWidths(p)[i]))

end;

procedure TForm3.Button1Click(Sender: TObject);
var
  I: Integer;
  P: PPhysicalCharWidth;
  T: TPhysicalCharWidths;

begin
   SetLength(t,10);
   for i := Low(t) to High(t) do t[i] := i + 17;
   Proz(@T[0],Length(t));
end;

Und wo wird da jetzt der Zeiger auf das erste Element verwendet? Du erstellst doch nur ein neues leeres Array und holst dir nicht das bestehende mit dem Zeiger...

Hach, ist wieder schwöööör zu erklären. P ist ein Zeiger auf das erste Element. Den generiere ich nicht selbst sondern der kommt von außen in die Prozedur. Gucks du hier in Zeile 810..854, Fehler in Zeile 819.

[Codehunter]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
   TPhysicalCharWidth = Byte;
   TPhysicalCharWidths = Array of TPhysicalCharWidth;
   PPhysicalCharWidth = ^TPhysicalCharWidth;
var
  T1, T2: TPhysicalCharWidths;
  P: PPhysicalCharWidth;
  I, Len: Integer;
begin
  Len:= 10;
  SetLength(T1, I);
  for I:= Low(T1) to High(T1) do begin
    T1[I]:= I + 100;
  end;
  P:= @T1[0];

  SetLength(T2, Len);
  T2[0]:= P^;
  for I:= 1 to Len - 1 do begin
    Integer(P):= Integer(P) + SizeOf(TPhysicalCharWidth);
    T2[I]:= P^;
  end;

end;

Ich verschiebe den Zeiger in einer Schleife jeweils um eine Position anhand der Größe eines Elements. Das funktioniert sogar, nur habe ich dann eine Kopie des ursprünglichen Arrays und nicht das Original. Im Ergebnis kann ich dann zwar die Werte lesen aber nicht in das ursprüngliche Array streiben