Hallo,
ich hab eine Liste vom Typ TObjectList in der ein paar Classen vom gleichen Typ gespeichert werden.
Die Class TStateClass schaut so aus:
Delphi-Quellcode:
TStateHButton = record
Name : String;
Bitmap : String;
Text : String;
ID : String;
Kind : Byte;
Length : Byte;
Font : String;
Active : Boolean;
end;
TStateVButton = record
Bitmap : String;
Active : Boolean;
end;
TStateClass = class
Name : String;
Mask : String;
Previous : String;
Calc : String;
Section : Byte;
Horz_Buttons : array of TStateHButton;
Vert_Buttons : array of TStateVButton;
end;
Wie man sieht besteht sie unter anderem auch aus 2 dynamischen Arrays.
In einer Procedure wird die Class erstellt (TStateClass.Create), beschrieben,
die Länge der dynamischen Arrays gesetzt und Diese ebenfalls beschrieben.
Alles soweit kein Problem.
In einer anderen Procedure wird die TObjectlist durchgearbeitet und
die einzelnen Class (TStateClass) ausgelesen und verarbeitet.
Und da hab ich ein Problem.
Ich kann zwar beim Auslesen der Class problemlos auf den Inhalt der Variablen
der Class zugreifen (wie z. B. Name, Mask, Previous,...)
aber wenn ich auf die Variablen der dynamischen Zugreife, dann sind diese immer
leer (Bitmap = '' und Active = false), obwohl ich sicher bin, dass diese
beschrieben wurden.
Ich hab den Verdacht, dass bei meiner Abspeicherung in die TObjectlist ein
Fehler passiert und der Inhalt der dynamischen Arrays nicht mitgespeichert wird.
Was mach ich falsch, bzw. wie kann ich auf den Inhalt der dynamischen Arrays
zugreifen?