Dynamische Arrays (mal wieder)

[himitsu]

Den Inhalt einer Variable und nicht des Typs.

[DelTurbo]

Erstmal Sorry. Also geht das garnicht was ich vorhabe? Und das mit den Generics habe ich ehrlich gesagt nicht kapiert. Würde das damit gehen?

Wenn ich demnächst nochmal so komplizierte fragen habe, werde ich direkt den Quellcode mit reinpacken. Ich wusste aber nicht das das so ein riesen ding wird. Ich dachte nur ich hätte irgendwie die Syntax falsch.

[himitsu]

2007 = noch keine Generics

[DelTurbo]

Also ist das nicht möglich, was ich vorhatte. Schade. Dann mache ich weiterhin für jedes Array ne eigene Sub.

Trotzdem danke

[DelTurbo]

Ich habe abschließend noch 3 fragen.

1. Wozu kann ich ein Dynamisches Array vergrössern (mit den sachen von DeddyH) wenn ich danach nicht drauf zugreifen kann.

oder

2. Sind einfach nur meine zugriffe auf dieses Array falsch. Wenn ja, wie würden die richtig aussehen.

3. @himitsu, was meinst in meinem beispiel mit "allseits anerkannten Prefix"? Weil, wenn ich das weiß, kann ich in zukunft damit arbeiten.

Vielen dank im voraus

[Klaus01]

.. etwas OT

Was zwingt Dich dyn. Array zu verwenden?

Wenn Du Listen (TList, TObjectList) verwenden würdest
könntest Du auf das vergrössern, verkleinern verzichten.
Das würde die Listen für Dich erledigen.

Grüße
Klaus

[DeddyH]

Nochmal: nicht Typ und Variablen verwechseln. Das hier geht bei mir unter Delphi 2007 ohne Probleme:

Delphi-Quellcode:

type
  TDingens = record
    SomeString: string[10];
    SomeInt: integer;
  end;

  TDingensArray = array of TDingens;

...

function GetNextFreeField(var DingensArray: TDingensArray): integer;
begin
  SetLength(DingensArray, Length(DingensArray) + 1);
  DingensArray[High(DingensArray)].SomeInt := Length(DingensArray);
  Result := High(DingensArray);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dingens: TDingensArray;
  i: integer;
begin
  GetNextFreeField(Dingens);
  GetNextFreeField(Dingens);
  GetNextFreeField(Dingens);
  (* Zugriff auf die Variable und nicht auf den Typ TDingensArray *)
  for i := Low(Dingens) to High(Dingens) do
    ShowMessage(IntToStr(Dingens[i].SomeInt));
  Dingens := nil;
end;

[DelTurbo]

Uff,
also manchmal hab ich echt ein Brett vorm Kopf. Ich danke dir DeddyH für deine Geduld mit so einem wir mir :thumb: