Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Objekt direkt einen Wert zuweisen? (https://www.delphipraxis.net/136157-objekt-direkt-einen-wert-zuweisen.html)

youuu 24. Jun 2009 18:47


Objekt direkt einen Wert zuweisen?
 
Hi wie kann ich einen Objekt direkt einen Wert zuweisen?

Delphi-Quellcode:
 TCompanySize = class
  Private
     Small: string;  << wert zuweisen
     Middle: string;
     Large: string;
  Public
   Procedure CompanySizeAdd(Customer: TObject; Size: string);
  End;

mkinzler 24. Jun 2009 18:48

Re: Objekt direkt einen Wert zuweisen?
 
Meinst du einen Default-Wert oder eine Property?

youuu 24. Jun 2009 18:52

Re: Objekt direkt einen Wert zuweisen?
 
einen default wert

mkinzler 24. Jun 2009 18:53

Re: Objekt direkt einen Wert zuweisen?
 
Du könntest ihn z.B. im Konstruktor setzen.

Muetze1 24. Jun 2009 18:54

Re: Objekt direkt einen Wert zuweisen?
 
Dafür gibt es den Constructor.

Ausser der Wert soll sich dann nie wieder ändern, dafür gibs dann auch was von ratiopharm: Konstanten.

youuu 24. Jun 2009 19:00

Re: Objekt direkt einen Wert zuweisen?
 
Danke hat geklappt ;)

DP-Maintenance 24. Jun 2009 20:04

DP-Maintenance
 
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Delphi-Frage

SimStar001 24. Jun 2009 20:51

Re: Objekt direkt einen Wert zuweisen?
 
Lies dir doch mal bitte das Tutorial zu OOP und so an ---> such mal nach Delphi CrashKurs... das ist super, und damit werden alle deine Fragen geklärt, denn es kommt mir so vor, als ob du nicht wirklcih über OOP bescheid weißt?

LG Marco

quendolineDD 24. Jun 2009 20:53

Re: Objekt direkt einen Wert zuweisen?
 
Jap, so wie das aussieht könntest du das ganze anstatt der Konstanten als Enum deklarieren.
Also ca. so
Delphi-Quellcode:
TCompanySize = (csSmall, csMiddle, csLarge);


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz