??? = Profilspeicher
du willst ja wohl diesen ändern
dieses SetLength gehört natürlich in eine Methode von TSpeicher
aber du gehst da komplett falsch ran, denn so kannst du nur ganze TProfil auslesen und vorallem ändern
Speicher.PProfilspeicher[i].Wert läßt sich zwar auslesen, aber nicht so setzen, da hier Get aufgerufen und der Record geholt würde, in welchem du zwar was ändern könntest, aber dieses wird danach dann wieder verworfen, da der Record nicht via Put zurückgespeichert würde.
Es wird immer nur jeweils einwas Put oder Get von Delphi aufgerufen ... nicht Beides!
PS: gehen würde es, wenn TProfil ein Object und kein Record wäre, da dort die Objekt-Variable und nicht das Objekt solber geliefert würde. (dort gibt es zwar kein PUT, aber das wäre nicht nötig, da ja direkt auf das Objekt zugegriffen würde und nicht auf eine Kopie, wie beim Record)
So hast du zugriff auf alle Felder und kannst diese auch ändern
Delphi-Quellcode:
TProfil = record
Name, Option1, Option2 : String;
Wert: integer;
end;
TSpeicher = class
private
FProfilspeicher: Array of TProfil;
FObjektspeicher: Array of TObject;
function GetName(Index: Integer): TProfil;
procedure PutName(Index: Integer; S: TProfil);
...
procedure PutOption1(Index: Integer; S: TProfil);
public
Function Add(...): Integer; // Result ist dann der Index des Erstellten
Procedure Delete(Index: Integer);
property Name [index: integer]: String read GetName write PutName;
property Option1[index: integer]: String read GetOption1 write PutOption1;
property Option2[index: integer]: String read GetOption2 write PutOption2;
property Wert [index: integer]: integer read GetWert write PutWert;
property Objekt [index: integer]: TObject read GetObject;
end;