|
Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
Delphi 10.4 Sydney
|
Re: pronzentberechungsproblem
12. Mai 2009, 10:37
memo4.Lines[0]:= IntToStr ((100 * aa) div zeichen)+'%';
warum arbeitest Du hier nicht mit Float Werten, das ist unter Umständen genauer.
memo4.Lines[0]:= format('%.2f %%',[100 * aa / zeichen]);
.. und vielleicht mal über die Verwendung von Array nachdenken.
.. und nicht vergessen den Quellcode einzurücken, das macht die ganze Geschichte lesbarer.
Grüße
Klaus
Klaus
|