Nachkommastellen von Extended abschneiden um Integer zu erhalten

[Kostas]

Die Werte die ich über RS232 bekommen sind Strings mit keiner, einer oder zwei Nachkommastellen. Nach dem Empfang werden die sie in einen Array of Record, da es noch weitere Daten pro Datensatz gibt. Das Feld für den Zahlenwert werde ich jetzt vom extended auf Real umstellen. Wie gesagt, die Einzelwerte die ich bekomme sind im Bereich von 0.0 bis 799.99 Maximal können 100 einzelne Werte zusammenaddiert werden. In die Datenbank muss ich dann eh ein Integer speichern. Die Auswertungen können jedoch ohne Nachkommastellen, mit einer oder zwei Nachkommastellen notwendig sein.

Vielen lieben Dank für die aktive Hilfe.

[jaenicke]

Zitat:

Zitat von Kostas (Beitrag 1537254)

Das Feld für den Zahlenwert werde ich jetzt vom extended auf Real umstellen.
[..]
In die Datenbank muss ich dann eh ein Integer speichern.

Wie schon geschrieben:
Warum bleibst du nicht einfach gleich bei Integer? Dann hast du doch keinerlei Probleme mehr damit.

[Kostas]

Eigentlich hast du recht. Dann formatiere ich eben nur fürs Reporting und arbeiten intern auch mit Integer.
Ja, dann mache ich das genau so. Dankeschön nochmals.

[himitsu]

Zitat:

Zitat von himitsu (Beitrag 1537217)

System.Currency :stupid: http://docwiki.embarcadero.com/RADSt...)#Reelle_Typen

:stupid:

[TomyN]

Oder Ceil oder Floor aus Math, da ist wenigstens klar, was sie machen. Es gibt im Übrigen auch RoundTo (nicht Round Two :-), vielleicht hilft das

[Blup]

Integer und mit einem zusätzlich einen Faktor ist wahrscheinlich die beste Lösung.
Genau das macht auch Currency (Faktor ist 1000).
Leider beherscht Delphi nicht von Haus aus Numeric(), dass arbeitet in Datenbanken genau wie Currency, aber man kann die Anzahl der Vor-und Nachkommastellen angeben.