Smartere maade at bruge RoundTo paa?

fdecimals := fdecimals * -1;

Hvad med dette her:


FDecimals burde være af den type fremfor en integer.

Hov, Minusset skulle ind in parantesen.

>>fdecimals := fdecimals * -1;

Den loesning har jeg brugt, da jeg goer det samme i andre sammenhaenge.
Jeg vidste ikke, at en integer blev accepteret som TRoundToRange, men den er aabenbart god nok!

Laeg svar begge to som tak:)

Det er almindelig typecasting. TRoundToRange er defineret som et heltalsinterval indenfor grænserne af en integer - og så kan man sagtens typecaste. Du kan evt. prøve at følge funktionen ud i VCL'et ved at klikke på RoundTo mens du holder CTRL nede. Så ser du hvordan den er defineret.

Typecasting bruger jeg også når jeg bekvemt bruger TStrings.Objects til at gemme et heltal sammen med en tekst (som regel en tekst og den tilhørende primørnøgle i en database):


... eller den anden vej


For objekter er der den lidt blødere variant med "is" og "as" så man ikke får typecastet til noget der ikke nødvendigvis er korrekt.



Det er lidt kønnere end brutalt at typecaste til klassen (TMyStringList(aObject))

martinlind laeg svar!