Freepascal->Delphi: Pointer als Array?

[Codehunter]

Zitat:

Zitat von Bummi (Beitrag 1185370)

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

Öhm, ja :)

Zitat:

Zitat von Bummi (Beitrag 1185370)

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 :(

[Bummi]

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
        TPhysicalCharWidths(p)[i] := TPhysicalCharWidths(p)[i] - 17;
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
      begin
      t[i] := i + 17;
      Memo1.Lines.Add(IntToStr(t[i]));
      end;
   Proz(@T[0],Length(t));

   Memo1.Lines.Add('Nach Proz');

   for i := Low(t) to High(t) do
      begin
      Memo1.Lines.Add(IntToStr(t[i]));
      end;


end;

irgendwo ist jetzt ein Konten drin ... ich lege keine Kopie an und kann zurückschreiben, wo ist mein Denkfehler?

[Codehunter]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
   TPhysicalCharWidth = Byte;
   TPhysicalCharWidths = Array of TPhysicalCharWidth;
   PPhysicalCharWidth = ^TPhysicalCharWidth;
var
  T1: TPhysicalCharWidths;
  P: PPhysicalCharWidth;
  I, Len: Integer;
begin
  // Anzahl der Elemente festlegen
  Len:= 10;

  // Ursprungs-Array erzeugen und mit Daten belegen
  SetLength(T1, I);
  for I:= Low(T1) to High(T1) do begin
    T1[I]:= I + 100;
  end;
  P:= @T1[0];

  // Ab hier wird nur noch mit dem Zeiger gearbeitet
  for I:= 0 to Len - 1 do begin
    Integer(P):= Integer(P) + SizeOf(TPhysicalCharWidth);
    P^:= P^ + 100;
  end;

  Caption:= IntToStr(T1[5]);  // --> Ergibt 205
end;

Gelesen und geschrieben ins ursprüngliche Array of Byte. Jetzt muss ich nur noch die Adresse des ursprünglichen Zeigers P zwischenspeichern und am Ende wiederherstellen.

Meine Güte, das ist ja wirklich eine wilde Zeigerschubserei. Zwischendurch hat sich da sogar mein Virenschutz gemeldet und darin einen Trojaner erkannt.

@Bummi: Jetzt hab ichs auch gesehen in deinem Code. Hast natürlich recht, ich habe die Dereferenzierung in "Proz" übersehen.

Das Konstrukt ist im Originalquelltext an sich ziemlich :firejump: aber was will man machen. Es soll ja "nur" ein Backport werden und kein komplettes Rewite.