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]);