Raster erzeugen

[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