Zitat von
Fuchspower:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if xB <2*x0 then timer1.enabled:=false; exit;
x:=(xb-x0)/(xEins-x0);
y:=x1*x*x*x*x+x2*x*x*x+x3*x*x+x4*x+x5;
yB:= Round(y*(YEins-y0)+y0);
if xB=0
then Image1.canvas.MoveTo(xB,yB)
else Image1.canvas.lineto(xB,yB);
xB:=xB+1;
end;
hi
also da ich vermute, dass deine Bedingung NIE erfüllt wird nie etwas gezeichnet d.h.
ich geh jetzt mal davon aus dass x0 und y0 jeweils die hälfte vom bildbreite bzw höhe sind, und beim buttonklick xb:=0 steht wird der timer immer wieder deaktiviert
d.h. if 0 <2*(image1.width) then
was im Normallfall ja so sein wird. deswegen geschieht auch nichts.
btw wäre es nicht auch sinnvoll in der IF-Abfrage ein Begin und End zu nutzen, da sonst Exit immer ausgeführt wird und somit das eigentliche Zeichnen vernachlässigt wird? Das solltest du ggf. nochmal überdenken
Hoffe das hilft dir etwas.
MfG blink182