String formatieren ?

[madina]

Hallo,

wie kann ich ein Zahl mit dem Commando Format('%', iZahl); so formatieren, daß statt Nullen auf der linken Seite leere Zeichen ausgegeben wird ?

z.B:

iZahl:= 1;
statt 001
1

od.

statt 01
1

usw

mfg
ati

[Lannes]

Hallo,

so:

Delphi-Quellcode:

s := Format('%3d',[1]);

[Popov]

Delphi-Quellcode:

Format('%80d', [1])

[fui-tak]

Wenn man die Nullen weg haben will, würde es auch so gehen, sieht nur nicht so wahnsinnig professionell aus: :wink:

Delphi-Quellcode:

StrToInt(IntToStr(005))

[DeddyH]

Es ging ja darum, statt der Nullen Leerzeichen zu haben ;)

[fui-tak]

mmmmmm...hast recht^^

[himitsu]

also quasi so

Delphi-Quellcode:

iZahl:= 1;
so '  1' statt '001' 

od.

so ' 1' statt 01

so dürfte das Problem dann wohl verständlicher rüberkommen :angel:

[madina]

Hallo,

mit den ersten 2 Lösungen klappt es nicht.

mfg

[DeddyH]

Sicher? Bei mir klappt das sehr wohl.

[jaenicke]

Wo gibst du das denn aus? Also wie hast du das getestet? (Bei mir gehts auch.)
Wenn du das in ein Memo schreibst z.B., dann musst du auch Courier New oder eine andere monospacige Schriftart einstellen, damit die Zeichen immer exakt gleich breit sind. (Sonst kann der entstehende Platz kleiner sein.)

[Popov]

Zitat:

Zitat von madina

mit den ersten 2 Lösungen klappt es nicht.

Nur mal so: das funktioniert natürlich nicht:

Delphi-Quellcode:

s := Trim(Format('%3d',[1]));

Aber bevor wir lange diskutieren, teste das mal:

Delphi-Quellcode:

ShowMessage(':' + Format('%200d', [1]));

Und sag uns ob zwischen dem Doppelpunkt und 1 eine Lücke ist.

Und noch was. Ich hoffe nicht, daß du ein Html-Code generierst. Da werden Leerzeichen > 1 ignoriert.

[madina]

Hallo,

es funktioniert nur statisch, mit einer Variable iZahl, der insgesamt 3 Stellen besitzen soll und jenachdem ' 1' oder ' 11' oder '999' ausgeben soll klapt es nicht.

mfg

[Lannes]

Hallo,

ehrlich gesagt versteh ich nicht was Du meinst.
Was klappt nicht?
- Fehlermeldung
- wird nichts ausgegeben
- etc.

Poste doch mal den Code(incl. Deklaration ,Initialisierung, Ausgabe etc. der Variable) den Du benutzt.

[Popov]

Zitat:

Zitat von madina

Hallo,

es funktioniert nur statisch, mit einer Variable iZahl, der insgesamt 3 Stellen besitzen soll und jenachdem ' 1' oder ' 11' oder '999' ausgeben soll klapt es nicht.

mfg

madina, dir ist aber klar, daß es Schriften gibt die feste Zeichen-Breiten haben, wie zB. Courier New, und Schriften die variable Zeichen-Breiten haben, wie zB. Arial oder MS Sans Serif (Standardschrift). Bei Courier New ist ein Leerzeichen genauso breit wie die Zahl 1. Bei Arial ist das Leerzeichen viel schmäler als die Zahl 1. Wenn du also 1 (vor der 1 sind drei Leerzeichen) und 999 untereinander setzt, dann ist die 1, obwohl zwei Zeichen davor, viel weiter vorne als die letzte 9 von 999.

Deshalb bat ich dir auch das auszuführen:

Delphi-Quellcode:

ShowMessage(':' + Format('%200d', [1]));

Wenn du willst, daß die Leerzeichen die gleiche breiten haben wie Zahlen, dann nim Courier New als Schrift.