Raster erzeugen

[-Julchen-]

Hallöchen,

wir haben in der Schule die Aufgabe, ein Programm zu erstellen, in dem man Funktionen eingeben kann und diese anschließend gezeichnet werden.

Unsere Frage ist es - sind 2 Anfängerinnen ^^ - wie man ein Raster im Image (also dort, wo sich das Koordinatensystem befindet) erstellen kann, damit alles übersichtlicher ist.

So sieht es im Moment aus:

Bild im Anhang


Wir hoffen, es kann uns jemand verständlich erklären.


Vielen Dank schonmal!


[edit=Matze]Bild angehängt, um nicht von den langsamen Imageshack-Servern abhängig zu sein. MfG, Matze[/edit]

[Noedel]

Das ist doch ganz einfach.
Eure Zahlen sind doch an nem festen Punkt. Dann nehmt einfach eine For Schleife und zieht ne Linie

Delphi-Quellcode:

      For i:=0 to 8 do
        begin
          if i<>4 then Pen.Color:=ClBtnFace else pen.color:=clblack;
          MoveTo(40+i*50,0);     //Linien -
          LineTo(40+i*50,Height);

          MoveTo(0,40+50*i);      //Linien |
          LineTo(Width,i*50+40);

          Pen.Color:=ClBlack;

          MoveTo(Bild.Width div 2 - 4,40+i*50);     //Striche -
          LineTo(Bild.Width div 2 + 4,40+i*50);

          MoveTo(i*50+40,Bild.Height div 2 - 4);   //Striche |
          LineTo(i*50+40,Bild.Height div 2 + 4);
        end;

//klammer falsch gesetzt