AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Verständnisfrage zu Pascal und Pointer im dynamischen Array

Verständnisfrage zu Pascal und Pointer im dynamischen Array

Ein Thema von ATS3788 · begonnen am 17. Mär 2014 · letzter Beitrag vom 18. Mär 2014
Antwort Antwort
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 17. Mär 2014, 14:44
Delphi-Quellcode:
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 );
Hallo
jetzt mache ich schon viele Jahre mit Delphi rum und immer wieder habe
das gleiche Problem.
Könnt mir jemand erklären warum *1 geht und wo die anderen Zeiger hinzeigen
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#2

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 17. Mär 2014, 14:52
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:
Stream.Write(aResInfo[0] , SizeOf(aResInfo[0]) * Length(aResInfo) );
Das funktioniert auch mit nicht-dynamischen Arrays, solange sie 0-basiert sind.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#3

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 17. Mär 2014, 14:59
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
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#4

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 18. Mär 2014, 10:09
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.
Martin MIchael
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 18. Mär 2014, 13:18
mypointer:=@(myarray[low]); passt immer, bei statischen und dynamischen Arrays.
Da mußt Du Dir keine Ausnahmen und Besonderheiten merken.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 18. Mär 2014, 13:21
Du meinst bestimmtmypointer:=@(myarray[low(myarray)]);
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#7

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 18. Mär 2014, 16:41
ja

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Verständnisfrage zu Pascal und Pointer im dynamischen Array

  Alt 18. Mär 2014, 17:30
Hallo
jetzt mache ich schon viele Jahre mit Delphi rum und immer wieder habe
das gleiche Problem.
Könnt mir jemand erklären warum *1 geht und wo die anderen Zeiger hinzeigen
Das einzig verwirrende daran ist, dass Write einen var -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.
Delphi-Quellcode:
procedure Write(var Buffer; Size: Cardinal);

...

procedure AndereFunktion;
var Buffer: array[255] of Byte;
begin
  Write(Buffer[0], SizeOf(Buffer));
Übersetzt der Compiler sozusagen in:
Delphi-Quellcode:
procedure Write(Buffer: Pointer; Size: Cardinal);

...

procedure AndereFunction;
var Buffer: array[255] of Byte;
begin
  Write(@Buffer[0], SizeOf(Buffer));
Man beachte das @.

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:
/// Wo zeigt der Zeiger hierhin
Stream.Write(aResInfo , SizeOf(TIconResInfo) * count );
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.

Delphi-Quellcode:
//// oder hierhin
Stream.Write(Pointer(aResInfo) , SizeOf(TIconResInfo) * count );
Das ist wieder das gleiche. Der Typecast verändert die Adresse der Variablen ja nicht.

Geändert von Namenloser (18. Mär 2014 um 17:32 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:13 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz