länge zweier integer werte vergleichen

[himitsu]

Zitat von DeddyH:

Sinnige Variablenbezeichner sind übrigens Gold wert.

und wie, wobei eine hübsche Einrükung auch gut ankommt

und die ganzen Round sind "sinnlos", da es eh schon integer sind

Delphi-Quellcode:

...
Vz := (Round(Vz));
MaxLen := Max(Length(IntToStr(Va)), Length(IntToStr(Vz)));
FormatString := Format('a = %%.%0:dd'#13#10'B = %%d'#13#10'Z = %%.%0:dd', [MaxLen]);
Memo1.Text := Format(FormatString, [Va, Vb, Vz]);

obwohl ich mich frag, was bei den * falsch sein soll
denn ich hab es grad geprüft (in D7) und es gehen beide Varianten.

Delphi-Quellcode:

...
Vz := (Round(Vz));
MaxLen := Max(Length(IntToStr(Va)), Length(IntToStr(Vz)));
Memo1.Text := Format('a = %.*d'#13#10'B = %d'#13#10'Z = %.*d', [MaxLen, Va, Vb, MaxLen, Vz]);

// bzw.

...
Vz := (Round(Vz));
MaxLen := Max(Length(IntToStr(Va)), Length(IntToStr(Vz)));
Memo1.Text := Format('a = %*.*d'#13#10'B = %d'#13#10'Z = %*.*d', [0, MaxLen, Va, Vb, 0, MaxLen, Vz]);