Forum: Object-Pascal / Delphi-Language
Delphi
by TiGü,
20. Okt 2017
Ich verstehe nicht, warum du trotz meines Beitrages vor einigen Tagen immer noch nicht die Gemeinsamkeiten der jeweiligen Klassen in eine Basisklasse ziehst.
Forum: Object-Pascal / Delphi-Language
Delphi
by TiGü,
13. Okt 2017
Wie wär's mit diesem neuartigen Konzept:
Gemeinsamkeiten von zwei oder mehr Klassen in eine gemeinsame Basisklasse und nur in den Ableitungen das neue Zeug?! 8-)
type
TCustomQuery = Class(TPersistent)
protected
FidBild: Integer;
FThumbnail: TMemoryStream;
FBitmap: TMemoryStream;
FPass: String;