Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   FoxPro nullen in Numeric ausgeben (https://www.delphipraxis.net/87042-foxpro-nullen-numeric-ausgeben.html)

KesseK 22. Feb 2007 13:34


FoxPro nullen in Numeric ausgeben
 
Hi leute,

ich zwei kleine Fragen zu FoxPro.
1. Ich hab eine Numeric Variable mit sechs Stellen, die ersten Stellen sind jedoch nullen, wenn ich die Variable nun benutze verwirft er die nullen und gibt nur die größte Zahl aus zB 000123 wird dann in der Tabelle nur als 123 gespeichert. Wie kann ich das umgehen?

2. Da ich in meinem Programm viele "strtran" benutze soll ich dafür eine Funktion schreiben. Cheffe ist nun weg und ich weiß nicht genau wie er das gemeint hat, kann mir da vielleicht jemand helfen?

Hier ist der code den ich in FoxPro benutze:

Code:
replace  Iname   with  strtran(strtran(strtran(strtran(upper(klienten->Familienna),"Ö","OE"),"Ü","UE"),"Ä","AE"),"ß","SS")
Kann ich das also irgendwie kürzen ohne viermal das strtran aufzurufen?

Vielen Dank :-D

mkinzler 22. Feb 2007 13:40

Re: FoxPro nullen in Numeric ausgeben
 
Dazu mußt du den Wert in einen String wandeln und dann von links mit Nullen auffüllen.

KesseK 22. Feb 2007 13:49

Re: FoxPro nullen in Numeric ausgeben
 
Der Wert wird in einen String umgewandelt, aber wie fülle ich den mit Nullen?

Ich stell mich nicht extra doof, ich weiß es leider wirklich nicht :(

mkinzler 22. Feb 2007 13:58

Re: FoxPro nullen in Numeric ausgeben
 
Code:
PADL(STR( <numeric-Wert>), <Gesamtlänge>, '0')

KesseK 22. Feb 2007 14:09

Re: FoxPro nullen in Numeric ausgeben
 
Zitat:

Zitat von mkinzler
Code:
PADL(STR( <numeric-Wert>), <Gesamtlänge>, '0')

Funktionert wunderbar ohne das STR, dass PADL gibt schon den String aus.

Danke Markus :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:46 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