Das ist meine MaschinenKlasse
Delphi-Quellcode:
TMaschine = class(TRaum)
private
FHersteller : string;
FTeileProStunde : integer;
FSonstiges : string;
FPositionX : single;
FPositionY : single;
procedure SetPositionX(x: single);
procedure SetPositionY(y: single);
procedure SetTeileProStunde(teile: integer);
public
property Hersteller: string read FHersteller;
property TeileProStunde: integer
read FTeileProStunde write SetTeileProStunde;
property PositionX: single
read FPositionX write SetPositionX;
property PositionY: single
read FPositionY write SetPositionY;
constructor Create(Hersteller, Bezeichnung, Sonstiges: string;
Breite, Laenge: Real48; TeileProStunde: integer) overload;
property Sonstiges: string read FSonstiges write FSonstiges;
procedure WriteToFile(W: TWriter); override;
procedure LoadFromFile(L: TReader); override;
end;
die sieht aber im wesentlich so aus wie die BeispielFahrzeugKlasse...
Ich wollte jetzt nicht alles hier rein posten... oder?!