Problem mit Bearbeiten eines Objekts im Array . OOP

[Sir Rufo]

@hotkey

Wenn du dir und uns einen Gefallen tun möchtest, dann lass den Begriff OOP einfach mal weg, da es einfach nur verwirrt, denn deine Fragen hatten bislang - bis auf gefühlt eine - soviel mit OOP zu schaffen, wie eine Banane mit einem Kuchenblech.

Somit bekommst du auch irgendwie immer zunächst die falschen Antworten, weil du mit dem Begriff OOP erst mal alle in die falsche Richtung blicken lässt.

So und nun mal ein Beispiel-Code für ein statisches Array für Objekt-Instanzen:

Delphi-Quellcode:

type
  TFoo = class
    procedure DoSomething;
  end;

procedure UseTheArray;
var
  ObjArr : array[1..10] of TFoo;
  idx : integer;
begin
  // Create the Objects
  for idx := 1 to 10 do
    ObjArr[ idx ] := TFoo.Create;

  // Use the Objects
  for idx := 1 to 10 do
    ObjArr[ idx ].DoSomething;

  // Free the Objects
  for idx := 1 to 10 do
    ObjArr[ idx ].Free;
end;

[DeddyH]

Dazu noch ein kleiner Tipp am Rande: gewöhn Dir am besten gleich an, Arrays immer von Low() bis High() zu durchlaufen, dann bleibst Du garantiert innerhalb der Array-Grenzen und liest nicht davor oder dahinter, was ganz hässliche Fehler nach sich ziehen würde. Auch dazu ein Beispiel:

Delphi-Quellcode:

procedure TFormTest.ButtonTestClick(Sender: TObject);
var
  Arr: array[1..5] of integer;
  i: integer;
begin
  for i := Low(Arr) to High(Arr) do
    Arr[i] := i * 2;
  for i := Low(Arr) to High(Arr) do
    ShowMessage(Format('Wert an Index %d: %d', [i, Arr[i]]));
end;