Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.928 Beiträge
Delphi 12 Athens
|
AW: Auch Records...kann man CopyOnWrite deaktivieren?
3. Nov 2023, 16:12
Hier mal ein Beispiel mit einer bordeigenen TList<T>. Man beachte die Verwendung von List anstatt Items:
Delphi-Quellcode:
type
PMyRecord = ^TMyRecord;
Function RecordAusListe(aName:String) : PMyRecord;
Begin
Result := @MyRecordLIST.List[IndexOfName(aname)];
end;
Procedure Tuwas;
var myRec:PMyRecord;
Begin
myrec := RecordAusListe('Peter');
myRec.Hitpoints := 5;
// oder
RecordAusListe('Peter').Hitpoints := 5; // das compiliert im ursprünglichen Code gar nicht
end;
geht dein beispiel so
RecordAusListe('Peter').Hitpoints := 5;
oder so
RecordAusListe('Peter')^.Hitpoints := 5;
??????
Andreas Monads? Wtf are Monads?
|