Thema: Delphi Potenzrechnung

Einzelnen Beitrag anzeigen

Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Potenzrechnung

  Alt 24. Aug 2007, 16:17
Das Ergebnis der Operation x/y ist in Delphi ein Real, kein Integer. Daher musst du ergebnis als Real (oder Single/Double/Extended) definieren. Eine weitere Möglichkeit wäre, x/y durch x div y zu ersetzen.
Übrigens brauchst du insgesamt nur eine Variable.

Delphi-Quellcode:
procedure Form1.OKBtnClick(Sender: TObject);
begin
  Timer1.enabled:=true;
  Timer1.Interval:=10;
end;

procedure Form1.Timer1Timer(Sender: TObject);
var
  percent: Integer;
begin
  percent:=StrToInt(Edit1.Text)*100 div StrToInt(Edit2.Text);
  Gauge1.progress:=gauge1.progress+1;
  if gauge1.Progress=percent then
    Timer1.enabled:=false;
  Label1.Caption:= inttostr(percent);
end;
EDIT: Schau dir mal das Grundlagentutorial auf http://dsdt.info an. Und was hat das ganze mit Potenzrechnung zu tun?
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat