Achsenkreuz skalieren mit for-to-Schleife

[jfheins]

Ich hab's mal anders formatiert und die Einrückung korrigiert:

Delphi-Quellcode:

    for i:=0 to deltax do
      strichposx:=i*einheitx;

    PaintBox1.Canvas.MoveTo(strichposx,(round(einheity*ymax))-5);
    PaintBox1.Canvas.LineTo(strichposx,(round(einheity*ymax))+5);
    //myString := myString + IntToStr(i);
    //Edit1.Text:=myString;

    //y-Achse
    PaintBox1.Canvas.MoveTo(round(einheitx*xmax),0);
    PaintBox1.Canvas.LineTo(round(einheitx*xmax),Paintbox1.Height);

Beantwortet das die Frage?