Frage zum Thema OOP

[Hansa]

@Jelly : jo.

In der Praxis siehts so aus :

Delphi-Quellcode:

constructor TIntEdit.Create(AOwner: TComponent);
begin
  inherited;
  ZulZeichen := ['0'..'9',#8];
  FAlignment := taRightJustify;
end;

procedure TIntEdit.KeyPress(var Key: Char);
begin
  inherited KeyPress(Key);
  if not (Key in ZulZeichen) then
    key := #0;
end;

{ TRealEdit }

constructor TRealEdit.Create(AOwner: TComponent);
begin
  inherited;
  ZulZeichen := ZulZeichen + [DecimalSeparator];
end;

"ZulZeichen" steht ab TIntEdit zur Verfügung. Da ist nun aber wirklich nicht viel zu planen, geschweige denn, seine Zeit mit dem Entwurf irgenwelcher Diagramme zu verplempern. 8) Später hat man dann nämlich nicht nur seine Programme zu warten, sondern auch noch die Diagramme. IMHO bringen solche Dinge nur in Ausnahmefällen eine Verbesserung, im Normalfall ist es eher ein Hindernis.