Property die Rekord zurückgibt

[Pseudemys Nelsoni]

moin,

sagen wir mal ich habe folgendes:

Delphi-Quellcode:

type
  TMyRecord = record
    str: string;
  end;

  TRecords = array of TMyRecord;

  TMyClass = class(TObject)
  private
    fRecords: TRecords;
  public
    function GetRecord(idx: integer): TMyRecord;
    property Records[idx: integer]: TMyRecord read GetRecord; default;
  end;

...


function TMyClass.GetRecord(idx: integer): TMyRecord;
begin
  if (not(idx < low(fRecordArray))) and (not(idx > high(fRecordArray))) then
    result := fRecordArray[idx];
end;

wenn ich nun eine instanz von "TMyClass" habe (MyCLass) und möchte im array mein zweiten Rekord ansprechen (MyClass.Records[1]) und dessen string ändern (MyClass.Records[1].str := 'irgendwas') dann schreibe ich doch nicht wirklich in meinem array oder? denn soweit ich weiss gibt die funktion GetRecord eine KOPIE des records zurück und bezieht sich nicht aufs array. meine idee wär nun gewesen einen pointer auf diesen typ zu definieren (PMyRecord = ^TMyRecord) und mir in der funktion PRecord zurückgeben lasse...

aber kann ich dann ein rekord überhaupt noch so ansprechen: "MyClass.Record[1].str" ? Muss ich dann nicht (): "MyClass.Record[1]^.str" benutzen?

[maximov]

Zitat von Pseudemys Nelsoni:

moin,
...
aber kann ich dann ein rekord überhaupt noch so ansprechen: "MyClass.Record[1].str" ? Muss ich dann nicht (): "MyClass.Record[1]^.str" benutzen?

Moin,

das geht beides, da der compiler sich dann halt denkt, das du das ^ vergessen hast


//edit: PS: wenn du einen pointer nimmst, dann kann es aber passieren, das da NIL zurück kommt, es sei denn du raised eine exception, wenn der index 'out of bounds' ist. Wäre das sauberste! Dann kannst du die annahme treffen, das er niemals NIL sagt

[Pseudemys Nelsoni]

moin maximov, danke für deine antwort

@exception, das habe ich bereits und sogar mit der gleichen fehlermeldung wie du sie gerade beschrieben hast hatte es hier nur alles rausgemacht was unwichtig war

[jim_raynor]

Also wenn deine Property einen Record (keinen Pointer zurück gibt) dann kannst du direkt lesend auf ein Element zugreifen.

Ein schreibender Zugriff wird allerdings abgewiesen.

Also

Delphi-Quellcode:

ShowMessage(MyClass.Record[1].str) // funktioniert
MyClass.Record[1].str:='Hallo' // funktioniert nicht

P.S: Aber das hätte man doch durch einfaches ausprobieren schneller rausbekommen

[Pseudemys Nelsoni]

hallo jim,

das geht nicht, er verlangt beim read eine prozedur

[jim_raynor]

Hab mich auch vertippt. Müsste natürlich Records statt record heissen.

P.S: Wenn du es mit Properties machst musst du nicht die Read Prozedur in den Public Abschnitt machen.