pronzentberechungsproblem

[mlhk]

hey,
ich hab ein wahrscheinlich sehr einfach zu lösendes problem

Delphi-Quellcode:

memo4.Lines[1]:= inttostr ((zeichen div 100)*b)+'%';

und zwar besteht meine frage darin warum er mir bei einer gering anzahl von zeichen immer 0% prozent ausgibt, es müsste doch immer funktionieren
mfg
max

[DeddyH]

Bei ganzzahliger Division mit div ergibt jede Zahl < 100 div 100 0. Ändere das mal so ab:

Delphi-Quellcode:

memo4.Lines[1]:= inttostr (round(zeichen / 100 * b))+'%';

[Dust Signs]

Oder du multiplizierst vorher mit b und rechnest dann div 100 - das spart dir das Runden

Dust Signs

[DeddyH]

Oder so :)

[mlhk]

also ich hab das mal ausprobiert

Delphi-Quellcode:

memo4.Lines[1]:= inttostr (round(zeichen / 100 * b))+'%';

funktioniert aber z.b. mit nur 10 zeichen auch nicht und was sehr komisch ist bei z.b. 415 zeichen gehen die prozente über 400% hinaus, sie sollen aber immer nur bis 100 % gehen, also insgesamt, immer (bei den 10zeichen)

[Klaus01]

Guten Morgen,

was möchtest Du denn berechnen?
Wie groß kann "zeichen" werden, 415 Stellen?
Wie groß ist "b"?

Grüße
Klaus

[mlhk]

also zeichen kan erstaml unbegrentzt groß werden und b ist gleich der anzahl wie oft der buchstabe b in dieses zeichen vorkommt

[Klaus01]

.. aber "zeichen" ist schon eine Zahl?

Und sollte es dann nicht eher

Delphi-Quellcode:

memo4.Lines[1]:= inttostr (round((b/zeichen) *100))+'%';

heißen?

Grüße
Klaus

[mlhk]

ah danke, so geht das perfekt

[thkerkmann]

Hi,

Zahlendreher:

Prozent = 100 * Zähler / Maximum