Thema: Delphi Statt 0,1,2 000,001,002

Einzelnen Beitrag anzeigen

Benutzerbild von gothic_mike
gothic_mike

Registriert seit: 2. Okt 2003
Ort: Olbernhau
134 Beiträge
 
Delphi 7 Personal
 
#3

Re: Statt 0,1,2 000,001,002

  Alt 3. Feb 2004, 22:43
Moin,

Zitat von Spike2k3:
Hoi Hoi,
Wie die Überschrift schon sagt, will ich das meine Variable nicht mit 0 anfängt sondern mit 000 anfängt...
Und dann mit wwi 300 oder so aufhört...
Ich hoffe man kann das irgendwie machen...
falls es dir nur beim anzeigen der Zahlen auf die drei stellen ankommt, nimm doch sowas hier:

Delphi-Quellcode:
function AddZero(const Int: Integer; const Len: Integer): String;
begin
  Result:='';
  while (Length(IntToStr(Int)) < Len) do
    Result:=Result+'0';
  Result:=Result + IntToStr(Int);
end;

...

Label1.Caption := AddZero(X, 3);
andernfalls ist es doch egal, ob da noch nullen davor sind...
bye4now, gothic_mike
. ..: carpe noctem :: coding in the darkness :.. .
  Mit Zitat antworten Zitat