Einzelnen Beitrag anzeigen

Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#12

Ein Schritt weiter gekommen

  Alt 2. Okt 2012, 12:23
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
  Mit Zitat antworten Zitat