Nachkommastellen vom Typ Real extrahieren und dann runden

[Klaus01]

wenn Du die letzten 3 Ziffern hinter dem Komma haben möchtest.
muss der Restwert mit 1000 multipliziert werden.

aus 0,2 werden 200
aus 0,21 werden 210
aus 0,234 werden 234

um zu prüfen ob der Wert eine Zahl ist die ganzzahlig durch 100 teilbar ist

Delphi-Quellcode:

if (zahl MOD 100 = 0) then
  ergebnis := zahl DIV 100
else
  if (zahl MOD 10 = 0) then
    ergebnis := zahl DIV 10;

damit würden aus 0,200 (*1000) -> 200 (DIV 100) -> 2
aus 0,21 (*1000) -> 210 (DIV 10) -> 21
aus 0,212 (*1000) -> 212 -> 212

negative Zahlen kann man vorher mit abs in positive wandeln.

Grüße
Klaus