Dynamisches Array verschachteln und speichern

[NickelM]

Das Ding ist du kannst nicht einfach eine dynamischen Array in einem Stream aller
Stream.WriteBuffer(FzzV[0],SizeOf(TFzzV)); speichern, da :
- Dynamischer Array ist nur ein Pointer(Adresse), die eine Größe von 4 Bytes hat.
- Delphi setzt vor dem Pointer vom dynamischen Array, ist die Größe bei SetLength initalisiert Delphi den Speicher für den Pointer vom Dynamischen Array. Ein Dynamischer Array ist nichts anderes als ein Statischer Array auf den du eine Pointer machst. Du kannst deshalb auch auf einen Dynamsichen Array auf Positionen zugreifen, die auserhalb des gesetzen Wertes liegen, ohne das der Compiler zumindest meckert, weil dahinter ein Statischer Array steckt. Nur beim zugriff, greifst du auf einen Speicher zu, der nicht für den Pointer (Dynamischen Array) resaviert ist.

Also du musst das Konzept in folgende Richtig ändern.
- Du musst die ID, die du im TFTerm hast dazuverwenden, den TFTerm den TFzzV zuordnen zukönnen.

Das würde dan etwa so Aussehen:

Delphi-Quellcode:

type
  TFTerm = record
    id: Integer;
    FVid: Integer;
    Typ: Integer; // 0 = Dreieck, 1 = Trapez ...
    Name: String;
    RangeMin: Double;
    RangeMax: Double;
    Param1: Double;
    Param2: Double;
    Einheit: String;
  end;

  TTermArray = array of TFTerm; //Damit der Compiler nicht meckert

  TFzzV = record
    id: Integer;
    Typ: Integer; // 0 = Eingabe und 1 = Ausgabe
    Name: String;
    RangeXLow: Double;
    RangeXHigh: Double;
    Einheit: String;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  FzzV: Array of TFzzV;
  TermArray : TTermArray;

implementation

{$R *.dfm}

//Hilfsfunktion, die dir den Count und ganz leicht eine Array zurückbekommst.
function FindTermsZuID(AId : Integer; out ATermArray : TTermArray) : Integer;
var I,NewIndex : Integer;
begin
  Result := 0;
  for I := Low(TermArray) to High(TermArray) do //So hast du direkt den gesammten Array zum druchsuchen
  if TermArray[I].FVid = AId then //Wenn ID übereinstimmt
  begin
    NewIndex := Result; //Zurzeit ist der Count noch 0, da der Erste Eintrag den Index 0 hat nehmen.
    Inc(Result); //Wollen ja den Count haben
    SetLength(ATermArray,Result); //Länge festlegen
    ATermArray[NewIndex] := TermArray[I]; //Zuweisen, bischen unsicher wegen Speicher aber dazukomme ich noch.
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var FoundTerms : TTermArray;
    TermsCount,I : Integer;
begin
   TermsCount := FindTermsZuID(5000,FoundTerms);
   if TermsCount > 0 then //Falls wir welche gefunden haben, in diem Fall solten es 2 sein
   begin
     for I := 0 to TermsCount -1 do
     begin
       ShowMessage(IntToStr(FoundTerms[I].id));
     end;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(FzzV,1); //Test array
  FzzV[0].id := 5000; //Als Test
  SetLength(TermArray,2); //Terms als test Festlegen, um den Prinzip zuzeigen.
  TermArray[0].id := 15130; //Term ID, NICHT DIE FzzV ID!!
  TermArray[0].FVid := 5000; //Hier kommt die ID, zu wem der Term gehört.

  TermArray[1].id := 15200; //Term ID, NICHT DIE FzzV ID!!
  TermArray[1].FVid := 5000; //Hier kommt die ID, zu wem der Term gehört.
end;

EDIT : Jemand schneller, egal bin müde und hoffe dass es dafür reicht, was er machen möchte.
JETZT ABER WIRKLICH PENEN MAN MAN MAN!!!!....

Gruß NickelM