Canvas drucken

[Sir Rufo]

BTW

Delphi-Quellcode:

repeat
  begin
    ...
  end;
until SomeState;

ist nicht unbedingt falsch aber es reicht vollkommen

Delphi-Quellcode:

repeat
  ...
until SomeState;

Dann wäre es auch schön, wenn du die Delphi-Tags verwenden würdest

Code:

[DELPHI]
// hier Delphi-Code
[/DELPHI]

und die Formatierung ist ... "abenteuerlich"

So könnte das dann aussehen

Delphi-Quellcode:

  if ( a <> 0 ) or ( b <> 0 ) or ( c <> 0 ) or ( d <> 0 )
  then
    begin
      canvas.Pen.Color := rgb( random( 256 ), random( 256 ), random( 256 ) );
      canvas.Pen.Width := 2;
      x                := - 7;
      xl               := 50;

      repeat
        y := a * x * x * x + b * x * x + c * x + d;
        canvas.MoveTo( xl, 400 - round( y * 50 ) );
        xl := xl + 1;
        x  := x + 0.02;
      until ( ( 400 - round( y * 50 ) ) < 751 ) and ( ( 400 - round( y * 50 ) ) > 49 );

      repeat
        y := a * x * x * x + b * x * x + c * x + d;
        if ( ( 400 - round( y * 50 ) ) < 751 ) and ( ( 400 - round( y * 50 ) ) > 49 )
        then
          canvas.LineTo( xl, 400 - round( y * 50 ) )
        else
          canvas.MoveTo( xl, 400 - round( y * 50 ) );
        xl := xl + 1;
        x  := x + 0.02;
      until xl = 751;
    end;