Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Aus Einstelligen zahlen 2 stellige machen (https://www.delphipraxis.net/64870-aus-einstelligen-zahlen-2-stellige-machen.html)

Necro Paul 9. Mär 2006 12:58


Aus Einstelligen zahlen 2 stellige machen
 
Hallo

Ich hoffe das ihr mir helfen könnt,
Ich habe ein Textfeld und eine Combobox.

Im textfeld steht dann beispielsweise '19:30:00' also Uhrzeit Format
In der Combobox stehen dann zahlen von 1-24 die dann zu dem Textfeld hinzugefügt werden

Ich wollte dann wenn größer als 24 doe stunden dann -24 rechnen was auch funzt aber logischerweise ist das ergebnis dann einstellig

wie bekomm ich es hin das er aus 0 <--> 00 macht?

mfg
Paul

markusj 9. Mär 2006 13:03

Re: Aus Einstelligen zahlen 2 stellige machen
 
Du wandelst intern ja einen Integer in einen String um, oder?
Dann fügst du einfach für den Fall, das die jeweilige Teilzahl kleiner als 10 ist, ein '0' vorne am String ein.

in Code:

Delphi-Quellcode:
str := inttostr(zahl);
if zahl < 10 then
 begin
 setlegth(str,2);
 str[1] := '0';
 end;
mfG

Markus

chaosben 9. Mär 2006 13:07

Re: Aus Einstelligen zahlen 2 stellige machen
 
Hi tu oll!

Eine zweite Möglichkeit ist der Format-Befehl. Sieh einfach mal in die Hilfe.

DevilsCamp 9. Mär 2006 13:33

Re: Aus Einstelligen zahlen 2 stellige machen
 
Also ich würde definitiv den Format-Befehl vorziehen.


Delphi-Quellcode:
s := Format('%.2d', [INTEGERWERT]);
Code:
INTEGERWERT=5          s='05'
INTEGERWERT=23         s='23'
INTEGERWERT=100        s='100'

Necro Paul 9. Mär 2006 23:07

Re: Aus Einstelligen zahlen 2 stellige machen
 
Hey Super :)

Funzt, Beide Arten wobei ich das Format schöner finde.
Ich hab mir das Format mal in der Hilfe durchgelesen, damit kann man doch einiges mit machen.

Womit ich aber schon wieder beim nächsten Problem bin :(
Aber dafür mach ich ma nen neuen Thread auf.

Danke
Gruß
Paul


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz