Mhmm naja...verstehe ich noch nicht ganz:
Wie mache ich das denn bei folgender
Unit (habe mal schnell eine vergleichbare zusammengeschrieben):
Delphi-Quellcode:
unit Unit1;
interface
uses
Contnrs, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAuto =
class(TObject)
Marke, Modell :
String;
end;
type TAutoSammlung =
class (TObjectList)
end;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
autosammlung : TAutoSammlung;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var newcar, oldcar : TAuto;
begin
oldCar := TAuto(autosammlung[1]);
newCar := TAuto.Create;
newCar.Marke := '
Porsche';
newCar.Modell := '
Boxter';
autoSammlung[1] := newCar;
ShowMessage(oldCar.Marke + #13 + oldCar.Modell);
end;
procedure TForm1.FormCreate(Sender: TObject);
var auto1 : Tauto;
begin
autoSammlung := TAutoSammlung.Create;
auto1 := TAuto.Create;
auto1.Marke := '
Opel';
auto1.Modell := '
Astra';
autoSammlung.Add(auto1);
auto1 := TAuto.Create;
auto1.Marke := '
VW';
auto1.Modell := '
Golf';
autoSammlung.Add(auto1);
auto1 := TAuto.Create;
auto1.Marke := '
Audi';
auto1.Modell := '
TT';
autoSammlung.Add(auto1);
end;
end.
oldCar wird überschrieben, obwohl ich autoSammlung[1] eigentlich vorher newCar zugewiesen habe...hoffe jetzt könnte ihr mich eher nachvollziehen.