möchte function Test(parameter) : TARRAY dimensionieren

[dizzy]

Du musst die Funktion in sich selbst dimensionieren.

Delphi-Quellcode:

...

interface

Type
    TebTest = record
                  Element1:string;
                  Element2:string;
                  Element3:integer;
    end;
 
    TebTestArray: Array of TebTest;

...

    function ebTestDo(Parameter):TebTestArray;
...

implementation 

    function ebTestDo(Parameter):TebTestArray;
    begin
      SetLength(result, 24); // <---------------- hier
    end;

    function ebAnderesDo(andereParameter):TandererTyp
    begin
    end;
...

Grund: Der Rüchgabewert existiert ausserhalb der Funktion noch nicht.

Gruss,
Fabian

\\edit: Uiii, und kein roter Kasten