Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
Delphi 10.4 Sydney
|
AW: Der linken Seite wird nichts zugewiesen "Extended Version"
25. Okt 2013, 09:39
Ich weiß, schien aber untergegangen zu sein.
Stimmt, hatte ich übersehen. Hab’s nämlich jetzt genau so gemacht:
Delphi-Quellcode:
property Items[Index: integer]: PStab read GetPItems write SetPItems; default;
function TStabList.GetPItems(Index: integer): PStab;
begin
Result := @FItems[Index];
end;
procedure TStabList.SetPItems(Index: integer; const Value: PStab); // Assign;
begin
FItems[Index] := Value^;
end;
|