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.