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:

markieren

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?

Ja das klingt nicht logisch, aber wie geht das dann?

**himitsu**

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

**Matze**

Zitat von AlexII:

ProgressBar und Gauge müssen ja Integer Werte haben und ich habe Float... wie wandele ich Float nach Integer?

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 Delphi-Referenz durchsuchen

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?

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:

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 Delphi-Referenz durchsuchen

Round.

Prozentsatz in einer ProgressBar anzeigen?

Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Re: Prozentsatz in einer ProgressBar anzeigen?

Forumregeln

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.152 Beiträge Delphi 12 Athens	#2 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:12 Nimm ein TStaticText (mit TLabel geht sowas nicht), lege es über die ProgressBar, mache es durchsichtig und trage dort deine Prozente ein Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Lumpiluk Registriert seit: 25. Dez 2008 110 Beiträge	#3 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:14 TGauge (unter Beispiele) berechnet automatisch den Prozentsatz. Sieht allerdings auch nicht so schön aus. http://www.lumpiluk.de.ms
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#4 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:20 ProgressBar und Gauge müssen ja Integer Werte haben und ich habe Float... wie wandele ich Float nach Integer? Ja das klingt nicht logisch, aber wie geht das dann? Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.152 Beiträge Delphi 12 Athens	#5 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:24 Runden? (Round, Trunc, .....) Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#7 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:26 Ne wie geht das hier? Gauge1.Progress:=RundeAufStelle(StrToFloat(Button3.Caption)100/summe, 1); Bekomme folgende Fehlermeldung: Zitat:* [Fehler] Unit1.pas(117): Inkompatible Typen: 'Integer' und 'Double' Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#8 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:28 Deklaration von RundeAufStelle? Thomas
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#9 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:29 Das Lesen von Antworten ist wohl nicht so deins: Gauge1.Progress:=Trunc(RundeAufStelle(StrToFloat(Button3.Caption)*100/summe, 1)); Markus Kinzler
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#10 Re: Prozentsatz in einer ProgressBar anzeigen? 1. Feb 2010, 19:30 Das gibt sicher einen Double zurück. Und auf eine nachkommastelle zu runden ist auch kein Integer. Nimm doch einfach Round.
	Zitat