Merkwürdiges Problem mit einem dynamischen Array

[thomasdrewermann]

Hallo,

wenn ich ein dynamisches Array global wir folgt deklarieren will:

Code:

 private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;  var a:Array of Double;


implementation

Bekomme ich vom Compiler folgende Fehler ausgeworfen:
1. Fehler: [ erwartet, aber 'OF' gefunden
2. Fehler: 'OF' erwartet, aber 'implementation' gefunden


Kopiere ich folgende Methoden aus der Delphi-Hilfe in den Quellcode, compiliert er ohne Fehler:

Code:

procedure Clear(var A: array of Double);
var
 I: Integer;
begin
 for I := 0 to High(A) do A[I] := 0;
end;
function Sum(const A: array of Double): Double;
var
 I: Integer;
 S: Double;
begin
 S := 0;
 for I := 0 to High(A) do S := S + A[I];
 Sum := S;
end;

Weiss jemand woran dieses Verhalten liegt? Was mache ich falsch?

Meine Delphi-Version ist 3.

Gruß
Thomas

[Klaus01]

Delphi 3 kann so weit ich das weiß keine dynamischen Arrays.

Delphi-Quellcode:

private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1;  

var a:Array [0..10] of Double; 

implementation

Grüße
Klaus

[Eichhoernchen]

Ich glaub Delphi 3 unterstützt noch gar keine dynamischen Arrays,
schlagt mich wenn ich falsch liege aber ich meine ich hätte dass mal gelesen!

[marabu]

Nochmal anders formuliert: es ist ein Unterschied zwischen einer dynamischen Array-Variablen und einem offenen Array-Parameter.

Grüße vom marabu

[thomasdrewermann]

Worin lieg denn dieser?

Wie nutze ich Array-Variablen?

Gruß
Thomas

[himitsu]

Du erstellst die 'nen VorlageTypen
Type TMyDoubleArray = Array[0..0] of Double; daraus wird dann der PointerTyp erstellt/genutzt

Delphi-Quellcode:

Type PMyDoubleArray = ^TMyDoubleArray;
Var MyDoubleVar: PMyDoubleArray;
// oder
Var MyDoubleVar: ^TMyDoubleArray;

und dann mußt du für die Speicherresservierung (z.B. per GetMem/FreeMem/eallocMem) sorgen.
MyDoubleVar := GetMem(x * SizeOf(Double));

[thomasdrewermann]

Nach der Speicherreservierung kann ich das verpointete Array normal nutzen? Also über a[x]?

Gruß
Thomas

[DGL-luke]

jop.

Setlength funktioniert dann natürlich nicht, zur Vergrößerung musst du wieder Speicher alloziieren. (wie geht denn das? den speicherbereich vergrößern? )

[thomasdrewermann]

Vielen Dank!

Dann weiss ich bescheid!

Gruß
Thomas

[Khabarakh]

Zitat von DGL-luke:

(wie geht denn das? den speicherbereich vergrößern? )

So wie es SetLength auch macht: Neuen, größeren Speicher reservieren, Inhalt aus dem alten rauskopieren und diesen dann freigeben.