Liste mit Objekten

[programmingpony]

Hallo,

Ich würde gerne wissen wie ich eine Liste erstelle , mit Objekten , sagen wir das Objekt hat als Eigenschaft X und Y (Double) und wie ich in einer Schleife zB für jedes Element die X und Y Daten verändern kann

Danke im Vorraus

[Mathias]

Am besten mit einer Array.

[programmingpony]

Wie oder was soll ih mit einem Array wenn die Anzahl von Objekten unbekannt ist? Ein Array hat dich eine feste Länge,oder?

[Mathias]

Dynamische Array

[m.fuchs]

Nicht unbedingt, es gibt ja auch dynamische Arrays.

Wenn du aber wirklich Objekte hast, solltest du eine Liste nehmen. Zum Beispiel eine generische:

Code: Alles auswählen

program Project1;
{$mode objfpc}{$H+}
 
uses
  Classes, SysUtils, Fgl;
 
type
  // Deine Klasse
  TMyClass = class(TObject)
    private
      FX: Integer;
      FY: Integer;
    public
      property X: Integer read FX write FX;
      property Y: Integer read FY write FY;
  end;
 
  // Die Spezialisierung einer generischen Objektliste für deine Klasse
  TMyList = specialize TFPGObjectList<TMyClass>;
 
 
var
  MyList: TMyList;
  o: TMyClass;
 
begin
  try
    // Erzeuge eine neue Listeninstanz
    MyList := TMyList.Create();
    // Füge der Liste drei neue Elemente hinzu
    MyList.Add(TMyClass.Create);
    MyList.Add(TMyClass.Create);
    MyList.Add(TMyClass.Create);
    // durchlaufe die Liste und setze für jedes Objekt X=10 und Y=9
    for o in MyList do begin
      o.X := 10;
      o.Y := 9;
    end;
  finally
    FreeAndNil(MyList);
  end;
end.

[programmingpony]

// Die Spezialisierung einer generischen Objektliste für deine Klasse
TMyList = specialize TFPGObjectList<TMyClass>;

Gesundheit

[programmingpony]

Kann ich beim Erstellen schon parameter wie X oder Y mit angeben?

[m.fuchs]

Ja, definiere einen eigenen Konstruktor:

Code: Alles auswählen

constructor TMyClass.Create(AX, AY: Integer);
begin
  inherited Create;
  FX := AX;
  FY := AY;
end;

Dann kannst du das im Aufruf machen:

Code: Alles auswählen

MyList.Add(TMyClass.Create(10, 9));
MyList.Add(TMyClass.Create(0, 0));

[programmingpony]

Wie/Wo binde ich das ein? bzw ich bekomme einen fehler

[m.fuchs]

Dazu schau doch mal hier rein: http://de.wikibooks.org/wiki/Programmie ... struktoren

Idealerweise liest du dir das ganze eBook mal durch. Das dürfte viele Fragen schon klären.

[programmingpony]

Werd mich nachher mal durch arbeiten danke schon mal

Und wo genau muss nun TMyList = specialize TFPGObjectList<TMyClass>; hin ohne dass es einen fehler verursacht?

[m.fuchs]

Ich habe dir doch oben ein komplettes Beispiel gegeben. Selbst wenn du noch nciht den grundlegenden Aufbau eines FPC-Programms verstanden hast, sollte das deine Frage beantworten.

[programmingpony]

Lag wohl daran das mir ein end; abhanden gekommen ist im unteren Programmteil