Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#15
  Alt 19. Apr 2003, 19:18
Moin Zusammen,

auch wenn's nur Daniels Variante gecodet ist:

Delphi-Quellcode:
  exValue := 0.77625;
  ShowMessage(IntToStr(Trunc(Frac(exValue)*100)));

@d3g
Zitat von d3g:
Man müsste umständlich über das Win32-API diese Einstellung herausfinden...
Nein, muss man nicht

Delphi nimmt einem diese Arbeit beim Programmstart ab, und stellt das Zeichen in der Variablen DecimalSeparator zur Verfügung.
Solange niemand die Einstellung zwischen Programmstart und Anwendug der Variablen geändert hat stimmt der enthaltene Wert.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat