Der linken Seite wird nichts zugewiesen "Extended Version"

[jaenicke]

Ich weiß, schien aber untergegangen zu sein.

[Bjoerk]

Zitat von jaenicke:

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;

[uligerhardt]

Zitat von Bjoerk:

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;

Den Schreibzugriff würde ich schnell wieder streichen.
Wenn ich als Benutzer deines Records `Liste[i] := PtrToSomeRecord` schreibe, ist das von der Syntax her eine flache Kopie von Referenzen/Zeigern, die du mittels `SetPItems` zu einer tiefen Kopie machst. Das halte ich für sehr verwirrend. Die Alternative wäre:

Delphi-Quellcode:

    property Items[Index: integer]: PStab read GetPItems; default;

function TStabList.GetPItems(Index: integer): PStab;
begin
  Result := @FItems[Index];
end;

// Benutzung:
Liste[i]^ := PtrToSomeRecord^;

Das erfordert zwei Haken mehr, dafür ist eindeutig klar, was passiert.

[Bjoerk]

Hallo Uli, mag sein, aber das Assign möchte da schon haben (was natürlich bedeutet, daß der Item auch existiert).