Realvariablen zerlegen

Ich möchte Realvariable in zwei verschiede Integer-Variablen aufteilen:
1.Interger-Variable: Die Ziffern VOR dem Komma der Real-Variable
2.Interger-Variable: Die Ziffern NACH dem Komma der Real-Variable

Gruss Florian

z.b. erstmal real in string, dann string in zwei strings zerlegen, und diese dann mit StrToInt
in intergers verwandeln…

irgendwie so würde ich sagen:

const
r: real=123.456;
var
s: string;
vorkomma, nachkomma, posvomkomma: integer;
begin
s:=FloatToStr®;
posvomkomma:=Pos(’,’,s);

vorkomma:=StrToInt(Copy(s,1,posvomkomma-1));
nachkomma:=StrToInt(Copy(s,posvomkomma+1, Length(s)));

geht ja auch eleganter :smile:

  • Thomas

VK:=Int(Extended);
NK:=Frac(Extended);

Gruss und viel Erfolg

RQ

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]