![]() |
Verständnisfrage zu Pascal und Pointer im dynamischen Array
Delphi-Quellcode:
Hallo
var
aResInfo : array of TIconResInfo; SetLength(aResInfo , Count); ........... // Das geht und ist richtig *1 Stream.Write(Pointer(aResInfo)^ , SizeOf(TIconResInfo) * count ); /// Wo zeigt der Zeiger hierhin Stream.Write(aResInfo , SizeOf(TIconResInfo) * count ); //// oder hierhin Stream.Write(Pointer(aResInfo) , SizeOf(TIconResInfo) * count ); jetzt mache ich schon viele Jahre mit Delphi rum und immer wieder habe das gleiche Problem.:pale: Könnt mir jemand erklären warum *1 geht und wo die anderen Zeiger hinzeigen |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
In den beiden letzten Fällen wird der Speicherbereich deiner Array-Variablen in den Stream geschrieben. Dort steht aber nur der Pointer auf das Array drin.
Ich verwende eigentlich immer diese Schreibweise:
Delphi-Quellcode:
Stream.Write(aResInfo[0] , SizeOf(aResInfo[0]) * Length(aResInfo) );
Das funktioniert auch mit nicht-dynamischen Arrays, solange sie 0-basiert sind. |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
So wird es vielleicht etwas deutlicher.
Delphi-Quellcode:
// Das geht und ist richtig.
Stream.Write(Pointer(aResInfo)^ , SizeOf(aResInfo[0]) * Length(aResInfo) ); Stream.Write(aResInfo[0] , SizeOf(aResInfo[0]) * Length(aResInfo)); // aka Stream.Write(Pointer(aResInfo)^ , SizeOf(TIconResInfo) * Length(aResInfo) ); Stream.Write(aResInfo[0] , SizeOf(TIconResInfo) * Length(aResInfo)); // Das geht auch und ist ebenfalls richtig, nur nicht so, wie eigentlich gewollt ist. Stream.Write(aResInfo , SizeOf(aResInfo) ); Stream.Write(Pointer(aResInfo) , SizeOf(aResInfo) ); // hier wird ja nur der Typ [s]gecastet[/s] anders interpretiert, also es ändert sich nichts an den Daten |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
Danke schön
Das muss ich erst mal wirken lassen. Mach schon viele Jahre mit Pointer rum, aber hier habe ich alle Jahre wieder das berühmte Brett vor dem Kopf.:shock: |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
Delphi-Quellcode:
passt immer, bei statischen und dynamischen Arrays.
mypointer:=@(myarray[low]);
Da mußt Du Dir keine Ausnahmen und Besonderheiten merken. Gruß K-H |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
Du meinst bestimmt
Delphi-Quellcode:
mypointer:=@(myarray[low(myarray)]);
|
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
ja :oops:
Gruß K-H |
AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array
Zitat:
Delphi-Quellcode:
einen
Write
Delphi-Quellcode:
-Parameter verwendet. Intern ist ein var-Parameter aber nichts anderes als ein Pointer (das ist auch der Grund, weshalb man bei var-Parametern den Typ weglassen kann). Für const gilt übrigens das gleiche, bloß dass der Compiler hier einen Schreibschutz enforciert.
var
Delphi-Quellcode:
Übersetzt der Compiler sozusagen in:
procedure Write(var Buffer; Size: Cardinal);
... procedure AndereFunktion; var Buffer: array[255] of Byte; begin Write(Buffer[0], SizeOf(Buffer));
Delphi-Quellcode:
Man beachte das @.
procedure Write(Buffer: Pointer; Size: Cardinal);
... procedure AndereFunction; var Buffer: array[255] of Byte; begin Write(@Buffer[0], SizeOf(Buffer)); Das zweite Ding ist jetzt, dass ein dynamisches Array intern auch ein Pointer ist, und zwar ein Pointer auf den Speicherbereich, wo die eigentlichen Daten des Arrays liegen. Deshalb klappt der Typecast auf Pointer. Da der Compiler bei var-Parametern aber automatisch das @ ergänzt, muss vorher noch einmal mit ^ dereferenziert werden, weil es sonst „doppelt gemoppelt“ wäre. Das @ und das ^ kürzen sich quasi weg, und man hat wieder den rohen Pointer, den man haben will. Also, um deine Eingangsfragen noch mal komplett zu beantworten:
Delphi-Quellcode:
Wie gesagt, var-Parameter werden vom Compiler den Parameter automatisch in einen Pointer übersetzt, und bei allen Aufrufen wird automatisch ein @ ergänzt. @aResInfo ist der Pointer auf die lokale Variable aResInfo (die selber wiederum ein Pointer ist). Das heißt, er zeigt irgendwo auf den Stack.
/// Wo zeigt der Zeiger hierhin
Stream.Write(aResInfo , SizeOf(TIconResInfo) * count );
Delphi-Quellcode:
Das ist wieder das gleiche. Der Typecast verändert die Adresse der Variablen ja nicht.
//// oder hierhin
Stream.Write(Pointer(aResInfo) , SizeOf(TIconResInfo) * count ); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz