Array von eigenem Record, der auch Arrays enthält

[Tyrael Y.]

Versuch es mal so...für die Records muss auch noch Speicher geholt werden.

Delphi-Quellcode:

type
  PMyData = ^TMyData
  TMyData = record
    Real : Array of Double;
    Int  : Array of Integer;
  end;

type
  TDaten : Array[0..3] of PMyData;

.
.
.

var 
  Daten: TDaten;
begin
  
//Speicher für Records holen
New(Daten[0]);
New(Daten[1]);
New(Daten[2]);
try
  //Speicher für Arrays im jedem Record holen
  SetLength(Daten[0].Int, aLänge); 
  SetLength(Daten[0].Real, bLänge);
  SetLength(Daten[1].Int, cLänge);
  SetLength(Daten[1].Real, dLänge);
  SetLength(Daten[2].Int, eLänge);
  SetLength(Daten[3].Real, fLänge);
....
....

finally
  //Speicher der Array im Record freigeben
  SetLength(Daten[0].Int, 0); 
  SetLength(Daten[0].Real, 0);
  SetLength(Daten[1].Int, 0);
  SetLength(Daten[1].Real, 0);
  SetLength(Daten[2].Int, 0);
  SetLength(Daten[3].Real, 0);
  
  //Records freigeben
  Dispose(Daten[0]);
  Dispose(Daten[1]);
  Dispose(Daten[2]);
end;


end;