Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: Der linken Seite wird nichts zugewiesen "Extended Version"

  Alt 25. Okt 2013, 08: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;
  Mit Zitat antworten Zitat