Der linken Seite wird nichts zugewiesen "Extended Version"

[jaenicke]

Sonst bleibt nur die Prozedur in der Liste zu implementieren und den Index mit zu übergeben...

Zitat von Bjoerk:

Klassen kann ich da keine mehr draus machen.

Hab ich zwar noch keinen Fall getroffen, aber wenn du dir da sicher bist...

[Bjoerk]

Gehen würde das schon, logo, würde ich auch gerne..

Die Zeit, die Zeit ist das Problem.

Bei Records bin ich mir oft unsicher, mache deshalb meistens:

Delphi-Quellcode:

  AItem := List[Index];
  AItem.Machwas;
  List[Index] := AItem;

[jaenicke]

Das funktioniert auch. Aber letztlich ist es dann Unsinn Records zu verwenden, wenn du eigentlich die Funktionalität von Klassen brauchst...

Um den bestehenden Code nicht groß ändern zu müssen, blieben sonst auch noch Pointer auf Records, die du aus der Liste zurückgeben könntest. Wenn die auf das Original zeigen, geht es ja auch.

[uligerhardt]

Zitat von jaenicke:

Um den bestehenden Code nicht groß ändern zu müssen, blieben sonst auch noch Pointer auf Records, die du aus der Liste zurückgeben könntest. Wenn die auf das Original zeigen, geht es ja auch.

Genau. Stand auch schon in Post Nr. 2.

[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).