Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
18. Apr 2009
und wie, wobei eine hübsche Einrükung auch gut ankommt :angel:
und die ganzen Round sind "sinnlos", da es eh schon integer sind :zwinker:
...
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', );
Memo1.Text := Format(FormatString, );
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
18. Apr 2009
wie hast du denn deine Variablen definiert?
z.B.:
var String1, String2: String;
MaxLen, Variable1, Variable2: Integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
18. Apr 2009
und mit ein paar Logarithmen (oder so) könnte man auch mathematisch rausbekommen welche Zahl wie lang ist ... OK, oder über IntToStr+Length (is nur langsamer)
MaxLen = {größte Länge der beiden Zahlen als String};
String1 := Format('%.*d', );
STring2 := Format('%.*d', );
voll unperformat, aber es läuft:
String1 := IntToStr(Variable1);
STring2 := IntToStr(Variable2);
While...