Das x bei for x in y do ist Readonly

[Kostas]

Hallo Zusammen,

es ist mir noch nicht aufgefallen, anscheinend habe ich es noch nicht in dieser Form gebraucht.

Das item(aRecord) aus der Liste einer For Schleife ist immer Readonly.
Gibt es eine Möglichkeit die Items zu beschreiben oder muss ich eine normale For Schleife verwenden?

Delphi-Quellcode:

for i := 0 to Length(aRecordArray)-1 do

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TaRecord = Record
               ID:integer;
               Namen:String;
             End;
type
  TaRecordArray = Array of TaRecord;

  var aRecordArray:TaRecordArray;
      aRecord:TaRecord;
begin
  for aRecord in aRecordArray do
  begin
    aRecord.ID := 0;
    aRecord.Namen := '';
  end;
end;

Gruß Kostas

[Sir Rufo]

Es ist nich viel besser ;)

Selbst wenn das nicht ReadOnly wäre würdest du die Änderungen in eine Kopie des Records schreiben.

[Kostas]

Das wollte ich natürlich nicht. Ich würde gerne das Array mit Werten initialisieren.
Geht es also nur über die klassische Methode oder?

[Sir Rufo]

Delphi-Quellcode:

var 
  LRec : TaRecord;
  LIdx : integer;
begin
  LRec.ID := 0;
  LRec.Namen := '';
  for LIdx := low( aRecordArray ) to high( aRecordArray ) do
    aRecordArray := LRec;
end;

[DeddyH]

Delphi-Quellcode:

for LIdx := Low(aRecordArray) to High(aRecordArray) do
  aRecordArray[LIdx] := Default(TaRecord);

[himitsu]

Oder du schreibst dir einen Enumerator, welcher die die Array-Items als Pointer zurückgibt. :stupid: