Prozentsatz in einer ProgressBar anzeigen?

[AlexII]

Hallo,
hab schon nach einer Lösung gesucht, aber kann trotzdem nicht verstehen, wie ich folgendes in den ProgressBars anzeigen soll:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button3.Caption)*100/summe, 1));
Label2.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button4.Caption)*100/summe, 1));
Label3.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button5.Caption)*100/summe, 1));
Label4.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button6.Caption)*100/summe, 1));
Label5.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button7.Caption)*100/summe, 1));
Label6.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button8.Caption)*100/summe, 1));
end;

Also anstatt Labels möchte ich ProgressBar setzen. Wer hilft mir dabei?

[himitsu]

Nimm ein TStaticText (mit TLabel geht sowas nicht), lege es über die ProgressBar, mache es durchsichtig und trage dort deine Prozente ein

[Lumpiluk]

TGauge (unter Beispiele) berechnet automatisch den Prozentsatz. Sieht allerdings auch nicht so schön aus.

[AlexII]

ProgressBar und Gauge müssen ja Integer Werte haben und ich habe Float... wie wandele ich Float nach Integer? :gruebel: Ja das klingt nicht logisch, aber wie geht das dann?

[himitsu]

Runden? (Round, Trunc, .....)

[Matze]

Zitat:

Zitat von AlexII

ProgressBar und Gauge müssen ja Integer Werte haben und ich habe Float... wie wandele ich Float nach Integer? :gruebel: Ja das klingt nicht logisch, aber wie geht das dann?

Überlege doch mal selbst. Wie macht man aus einer Kommazahl eine Ganzzahl? Man muss sie runden und da gibt es massig Funktionen wie Round, Trunc, Floor, ...

Edit: Ich muss mich kürzer fassen, sonst bin ich immer der langsamste beim Schreiben. *g*

[AlexII]

Ne wie geht das hier?

Delphi-Quellcode:

Gauge1.Progress:=RundeAufStelle(StrToFloat(Button3.Caption)*100/summe, 1);

Bekomme folgende Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(117): Inkompatible Typen: 'Integer' und 'Double'

[toms]

Deklaration von RundeAufStelle?

[mkinzler]

Das Lesen von Antworten ist wohl nicht so deins:

Delphi-Quellcode:

Gauge1.Progress:=Trunc(RundeAufStelle(StrToFloat(Button3.Caption)*100/summe, 1));

[Matze]

Das gibt sicher einen Double zurück. Und auf eine nachkommastelle zu runden ist auch kein Integer. Nimm doch einfach Round.

[AlexII]

Ja hab jetzt alles verstanden, aber möchte Kommazahlen haben, z.B. 13,6% oder 34,5%

[Matze]

Ach so, sag's doch gleich. Dann ist das mit TGauge nicht möglich. Nimm die ProgressBar mit dem angesprochenen TStaticText Label davor.

[AlexII]

Ok danke hab alles was ich wollte. :thumb:

[scrat1979]

Zitat:

Zitat von AlexII

Ja hab jetzt alles verstanden, aber möchte Kommazahlen haben, z.B. 13,6% oder 34,5%

Wenn es nur darum geht, die Prozentzahlen als Balken (nicht Text) anzeigen zu lassen, dann setzte Progress.max auf 1000 und multipliziere Deinen Betrag mit 10 (hier also 136 bzw. 345). An sonsten Schreibe dir Deine eigene Komponente. Auch ich, der wahrlich NICHT der Meister der Komponentenentwicklung ist, habe mir auch schon eine eigene ProgressBar programmiert. Man lernt auch sehr viel dabei. Möchtest du die Zahlen als Text darstellen, wäre eine komplette Komponente mit Sicherheit die sauberere Lösung :angel:

Habe mal meine Komponente als Anhang hinzugefügt. Für Deine einfache Fragestellung mit Sicherhiet "overkill" aber das Prinzip dürfte klar sein. Und ach so, damals hatte ich knapp 3 Jahre weniger Programmiererfahrung, evtl. "schlampige" Programmierung sei mir verziehen :)

SCRaT