Schnittpunkt Quadartische Gleichung und lineare Funktion

[R2009]

Hi,

auf das Formular zeichnen mit canvas.moveto(x0,y0) und canvas.lineto(x1,y1).
Wenn du das ganz komfortabel machen willst schreib dir eine Prozedur.

Delphi-Quellcode:

procedure linie(can:tobject;x1,y1,x2,y2:integer);
   Begin
     (can as tcanvas).moveto(x1,y1);
     (can as tcanvas).lineto(x2,y2);
   end;

Aufruf mit:
linie(canvas,100,100,200,200);

So jetzt haben wir dir, glaube ich genug geholfen. Den Rest machst du selber!

Viel Spass!