Potenzrechnung

[Klaus01]

Hallo Peter,

mit diesem Code (mit TGauge):

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i, x, y,faktor: Integer;
  ergebnis,ergebnis2: extended;
begin
  faktor:= StrToInt(Edit3.Text);
  x:=StrToInt(Edit1.Text);
  y:=StrToInt(Edit2.Text);
  Ergebnis:=  x / y;
  if ergebnis > 1 then
    gauge1.Max:=faktor*(trunc(ergebnis)+1)
  else
    gauge1.Max:=faktor;
  label2.Caption:='max: '+IntToStr(Gauge1.Max);
  Ergebnis2:= ergebnis*faktor;
  Gauge1.Position := gauge1.Position + 1;
  if gauge1.Position >=  ergebnis2 then
    Timer1.enabled :=false;
  Label1.Caption:= Edit1.Text +'/'+Edit2.Text+' * '+Edit3.Text+'= '+ format('%.2f',[ergebnis2]);

end;

Bekomme ich es richtig heraus, siehe Bild.
Ich weiß nicht was Du anders machst.
Arbeitet TGauge anders als TProgressbar?

Grüße
Klaus