Integer Wert... Bitte Hillfe

[Computerbabalulu]

Hallo zusammen

Ich lese aus der Registry einen DWord Wert als Integer aus.

Diesen Wert schreibe ich dann mit IntToStr in ein TEdit Feld.
Wenn der Wert in der Registry z.B. nur 2-stellig ist, wird er im Editfeld natürlich auch nur zweistellig angezeigt.
Ich möchte aber, das der Wert im TEdit immer 4-stellig angezeigt wird.

Also 12 zb. als 0012

Wie kann ich das machen???

Gruß Baba

[Mirilin]

Delphi-Quellcode:

const 
  s = '%.4d'; 
begin 
  Caption := format(s,[Zahl]);

mfg Tobias

[Stanlay Hanks]

Hi!

Delphi-Quellcode:

Str := IntToStr(93); //Deine Zahl;

While Length(Str) < 4 do
  str := '0'+str;

Das sollte eigentlich auch funktionieren. Es wird solange eine Null vorn dran gehängt, bis die Länge 4 Zeichen beträgt. Aber natürlich ist Mirilins Lösung kürzer

Man liest sich, Stanlay

[SirThornberry]

  formatfloat('00', deinezahl); sollte auch gehen (auch wenn deine zeil in integer und kein float ist)

[Computerbabalulu]

Hey, Super

Danke euch für die schelle Hilfe!!

Das habe ich jetzt gebraucht

Gruß Baba