Hallo,
ich habe da ein Problem und zwar ich versuche ein Potenzergebnis durch ein Gauge zu ermitteln
aber irgendwie klappt es nicht. So folgt sieht mein code aus:
Delphi-Quellcode:
procedure Form1.OKBtnClick(Sender: TObject);
begin
Timer1.enabled := true;
Timer1.Interval := 10;
end;
procedure Form1.Timer1Timer(Sender: TObject);
var
i, x, y, ergebnis,ergebnis2: integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
Ergebnis:= x / y;
Ergebnis2:= ergebnis*100;
Gauge1.progress := gauge1.progress + 1;
if gauge1.Progress = ergebnis2 then Timer1.enabled :=false;
Label1.Caption:= inttostr(ergebnis);
end;
Ich vermute,dass irgendwas in meiner Formel stimmt nicht. kann mir jemanden helfen?
grüß
poter