Delphi Wie kann ich einen Floattypen definieren (TTyp = 0..360)

Thema durchsuchen

Ansicht

Themen-Optionen

Wie kann ich einen Floattypen definieren (TTyp = 0..360)

Ein Thema von SirThornberry · begonnen am 31. Jan 2005 · letzter Beitrag vom 31. Jan 2005

Vorheriger Beitrag

Nächster Beitrag

Robert_G

(Gast)

n/a Beiträge

Re: Wie kann ich einen Floattypen definieren (TTyp = 0..360)

31. Jan 2005, 22:19

Was spricht gegen Properties?

markieren

Delphi-Quellcode:

			private fSomeFloat :float;

public property SomeFloat read fSomeFloat write setSomeFloat;

...

procedure TSomeType.setSomeFloat(const aValue: float);

begin

  if (aValue < 0) or (aValue > 360) then

    raise EOutOfBoundsException('miep');

  fSomeFloat := aValue;

end;

Wenn dir das zu doof ist, schnappe dir FreePascal. Das kann IMHO Operatorüberladung. Damit könntest du "direkt" mit den Instanzen der Klassse rechnen.