Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - OOP: Verhindern das Integer-Property <= 0 zugewiesen wird


Marco D. - Do 13.07.06 17:32
Titel: OOP: Verhindern das Integer-Property <= 0 zugewiesen wird
Einer Integer-Property darf kein Wert gleich oder kleiner als 0 zugewiesen werden. Ich möchte mit einer Set-Prozedur dies überprüfen. Wie sieht die Syntax aus?

Delphi-Quelltext
1:
2:
3:
4:
5:
private
FIntegerFeld : integer;
procedure SetIntegerFeld //???
public
property IntegerFeld : integer read FIntegerFeld write SetIntegerFeld; //ab write weiß ich nicht weiter?!?

Wie muss das aussehen?


Born-to-Frag - Do 13.07.06 17:34
Titel: Re: OOP: Verhindern das Integer-Property <= 0 zugewiesen wir
user profile iconMarco D. hat folgendes geschrieben:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
private
FIntegerFeld: integer;
procedure SetIntegerFeld(const Value: Integer) //???
public
property IntegerFeld : integer read FIntegerFeld write SetIntegerFeld; //ab write weiß ich nicht weiter?!?

...

procedure SetInt....
begin
  if Value < 0 then
    FIntegerFeld := 0
  else FIntegerFekd := Value;
end;



Marco D. - Do 13.07.06 17:39

Muss vor Value das const unbedingt?


Born-to-Frag - Do 13.07.06 17:45

wenn ich Strg+Shift+C mach, wird es so angelegt, muss aber nicht sein


digi_c - Fr 14.07.06 07:34

Wieso nimmst du eigentlich nicht gleich Cardinaloder Byte, Word, Longwordals Datentyp?


Marco D. - Fr 14.07.06 11:28

user profile icondigi_c hat folgendes geschrieben:
Wieso nimmst du eigentlich nicht gleich Cardinaloder Byte, Word, Longwordals Datentyp?

Wieso sollte ich? ;)