Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Dyn. Array als Parameter übergeben und in Prozedur vergrößer (https://www.delphipraxis.net/125773-dyn-array-als-parameter-uebergeben-und-prozedur-vergroesser.html)

meisteralex 11. Dez 2008 11:03


Dyn. Array als Parameter übergeben und in Prozedur vergrößer
 
Hallo ich habe folgende Prozedur:

Delphi-Quellcode:
procedure fill_container(var _edifactstring : string; _container : array of TContainer);
und will nun innerhalb der Prozedur mit SetLength(_container,33); das Array vergrößern?
Warum geht das nicht ? => der Compiler meldet ungültiger Typ!

Falls das ganze nur über Zeigerarithmetik geht...wie kann ich ein dyn Array als Zeiger übergeben ?
aber normalerweise sollte ja auch in Delphi ein byRef - Prameter nur eine Kapselung der Zeigerarithmetik sein.

Naja bin auf die Antworten gespannt.

Danke im Vorraus

SirThornberry 11. Dez 2008 11:04

Re: Dyn. Array als Parameter übergeben und in Prozedur vergr
 
du müsst für dein array of einen neuen Typen definieren und diesen dann verwenden.

Blup 11. Dez 2008 15:39

Re: Dyn. Array als Parameter übergeben und in Prozedur vergr
 
Dieses Problem findet früher oder später jeden Delphianwender.
zum Verständnis:
Delphi-Quellcode:
var
  _container1: array of TContainer;
  _container2: array of TContainer;
"array of TContainer" ist jeweils eine eigenständige Typdeklaration.
Der Compiler interpretiert das so:
Delphi-Quellcode:
type
  Typ1 = array of TContainer;
  Typ2 = array of TContainer;

var
  _container1: Typ1;
  _container2: Typ2;
Die beiden Typen sind zwar auf gleiche weise deklariert, aber für den Compiler nicht identisch.
Eine Zuweisung von einer Variablen an die andere schlägt mit der Meldung "Inkompatible Typen" fehl.

Der Typ von Array-Variablen muss dazu explizit deklariert werden.
Delphi-Quellcode:
type
  TContainerArray = array of TContainer;

var
  _container1: TContainerArray;
  _container2: TContainerArray;
Die Prozedur sollte dann etwa so aussehen:
Delphi-Quellcode:
procedure fill_container(var _edifactstring : string; var _container : TContainerArray);
Das var vor _container ist erforderlich, damit innerhalb der Prozedur nicht mit einer Kopie des Arrays gearbeitet wird.
Änderungen werden sonst außerhalb der Prozedur nicht sichtbar.
Das var vor _edifactstring ist nur dann sinnvoll, wenn innerhalb der Prozedur Änderungen an dieser Variablen vorgenommen werden und diese ebenfalls außerhalb der Prozedur sichtbar werden sollen.

gammatester 11. Dez 2008 15:48

Re: Dyn. Array als Parameter übergeben und in Prozedur vergr
 
Zitat:

Zitat von Blup
Dieses Problem findet früher oder später jeden Delphianwender.
zum Verständnis:
Delphi-Quellcode:
var
  _container1: array of TContainer;
  _container2: array of TContainer;
"array of TContainer" ist jeweils eine eigenständige Typdeklaration.

Darum geht es hier aber gar nicht, denn in der Deklaration
Delphi-Quellcode:
procedure fill_container(var _edifactstring : string; _container : array of TContainer);
ist _container kein dynamisches Array sondern ein "Open array". Siehe Delphi-Hilfe (Open array parameters):
Zitat:

The syntax of open array parameters resembles that of dynamic array types, but they do not mean the same thing.
Gammatester

Blup 11. Dez 2008 16:28

Re: Dyn. Array als Parameter übergeben und in Prozedur vergr
 
In diesem Anwendungsfall ist ein "Offener Array-Parameter" nicht die richtige Wahl.
Die Größe des Arrays soll innerhalb der Prozedur verändert werden.
Bei Übergabe eines dynamischen Arrays als var-Parameter ist das möglich.

gammatester 11. Dez 2008 17:24

Re: Dyn. Array als Parameter übergeben und in Prozedur vergr
 
Zitat:

Zitat von Blup
In diesem Anwendungsfall ist ein "Offener Array-Parameter" nicht die richtige Wahl.
Die Größe des Arrays soll innerhalb der Prozedur verändert werden.
Bei Übergabe eines dynamischen Arrays als var-Parameter ist das möglich.

Das ist zwar richtig, aber nichts neues: Siehe Sir Thornberrys Beitrag. Ich habe nur auf Deine falsche Erklärung für die Fehlermeldung des Kompilers hingewiesen.

Nix für ungut
Gammatester


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:00 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