Kommazahlen

[LokutusvB]

Hallo,

ich habe mir mal vor ein paar Jahren eine Funktion gebastelt, die mir von einer Kommazahl den Ganzzahlenwert und den Nachkommawert ausgibt (für weitere Berechnungen). Ich weiß, das ist mit Pos und Copy schnell gelöst. Gibt es aber vielleicht inzwischen in Delphi XE 2 bis 7 eine Funktion, die das automatisch ausgibt, wie z.B. bei einem Dateinahmen den Namen und die Endung?

Oder aber gibt es eine Funktion, die mir z.B. von einer Uhrzeit den Stunden- und Minutenwert zurückgeben kann, als Basis z.B. "03:30" oder "3,3"?

[Jasocul]

Zitat von LokutusvB:

Gibt es aber vielleicht inzwischen in Delphi XE 2 bis 7 eine Funktion, die das automatisch ausgibt

Schau mal nach Trunc und Frac . Geht aber nur, wenn es schon als Zahl vorliegt. Bei einem String funktioniert das nicht.

Zitat von LokutusvB:

Oder aber gibt es eine Funktion, die mir z.B. von einer Uhrzeit den Stunden- und Minutenwert zurückgeben kann, als Basis z.B. "03:30" oder "3,3"?

Schau dir mal die Unit DateUtils an. Dort sollten passende Funktionen vorhanden sein.

[baumina]

Zitat von LokutusvB:

Gibt es aber vielleicht inzwischen in Delphi XE 2 bis 7 eine Funktion, die das automatisch ausgibt, wie z.B. bei einem Dateinahmen den Namen und die Endung?

ExtractFileName
ExtractFileExt

[Dejan Vu]

Zitat von LokutusvB:

ich habe mir mal vor ein paar Jahren eine Funktion gebastelt, die mir von einer Kommazahl den Ganzzahlenwert und den Nachkommawert ausgibt (für weitere Berechnungen). Ich weiß, das ist mit Pos und Copy schnell gelöst.

Da passt doch etwas nicht, merkst Du das? Pos und Copy sind Funktionen auf Strings, d.h. Zeichenketten. Aber eine 'Kommazahl' ist eine Zahl, die als Double, Extended, Real o.ä. abgelegt wird bzw. werden sollte.

Wenn Du also bisher nur mit Strings gearbeitet hast, wird es Zeit, dich mit den numerischen Datentypen und den damit verbundenen Funktionen auseinanderzusetzen.
Wenn Du dich aber mit numerischen Datentypen auskennst, dann verwende Sie.

[himitsu]

Zitat von baumina:

Zitat von LokutusvB:

Gibt es aber vielleicht inzwischen in Delphi XE 2 bis 7 eine Funktion, die das automatisch ausgibt, wie z.B. bei einem Dateinahmen den Namen und die Endung?

ExtractFileName
ExtractFileExt

Ich glaub die Funktionen kennt der TE schon, es fehlten ihm nur die Funktionen, welche sowas für "Floats" machen.

Float als String ist natürlich blöde und da finge man dann mit Copy, Pos, Split oder sowas an.
Als Flieskommazahl, wären die äquivalenten Funktionen die bereits genannten Trunc und Frac, welche es schon vor Delphi gab (in Turbo Pascal).

Und nein, das Dezimaltrennzeichen ist nicht immer ein , , denn die Amis haben z.B. den Dezimalpunkt und kein Dezimalkomma, womit dein Programm in einem englischen Windows nicht funktionieren würde.

[LokutusvB]

Zitat von Dejan Vu:

Da passt doch etwas nicht, merkst Du das?

Ja, ich habe nur schon einen Schritt weiter gedacht und diesen nicht mit aufgeschrieben. Das genannte Funktionen nur mit Strings funktionieren, ist mir klar und hatte ich als Voraussetzung nicht mit geschrieben.

An himitsu:
Genau. Diese sind mir sehr gut bekannt, nützen mir aber im Float-Bereich nicht die Bohne. Mit Copy und Pos habe ich bisher gearbeitet, ich hatte Hoffnung mittlerweile gibt es vielleicht eine Routine dafür.

An Jasocul:
Danke für die Tip, DateUtils schaue ich mir näher an.

[DeddyH]

Die Hinweise auf Trunc und Frac scheinst Du übersehen zu haben, die machen genau das, was Du willst: Vor- und Nachkommaanteil liefern.

[LokutusvB]

Habe ich nicht. Frac liefert mir wieder eine Kommazahl, 0,XYZ. Da habe ich sie wieder, meine Kommazahl.

Der Hinweis auf DateUtils war die rettende Idee. MinuteOf und HourOf liefern mir genau das, was ich benötige, vielen Dank! So wandle ich meine Kommazahl in ein DateTime-bzw. Time-Format und lasse mir Stunde und Minute ausgeben.

[mkinzler]

Warum speicherst Du Daten/Uhrzeiten in Strings?
Frac liefert den Zeitwert (TTIme = Double Nachkommawert)

[Der schöne Günther]

Ich glaube das fummeln mit der Nachkommastelle eines TDateTime war nur ein Umweg den er jetzt (zum Glück) nicht mehr gehen braucht.