Statistikprogramm

[Nikolas]

Zuerst ist zu sagen, dass der Code vom Stil her recht schlecht ist. Was passiert z.B. wenn du das Fenster größenmäßig etwas veränderst? Dann musst du jede Zeile umschreiben.
Den Abstand der Striche kannst du auch per
d := round( (image.width-30)/ (AnzahlDerSpiele+1) ) ausrechnen. Wobei die 30 dafür sorgen sollten, dass links und rechts noch ein bischen Platz ist.

Zum eigentlichen Problem:

Du brauchst eigentlich nur den Umrechnungsfaktor TabellenPlatz -> Pixel und aktuelle Saison -> Pixel.
Zweiteres habe ich oben schon angedeutet.
Für die dritte Saison z.B. muss du den Punkt bei x = 15+3*d setzen.

Für den Tabellenplatz wirds auch ähnlich:
Sei s die Differenz zwischen bestem und schlechtestem Platz, dann sei
d' := round( (image.height-30) / (s+1) ); Dann gilt für die y-Koordinate
y:= round ( image.height-( 15+d'* [(PlatzInDieserSaison)-(PlatzInDerSchlechtestenSaison)] ) ); Die geschätzen 30 Pixel sind eigentlich auch nicht optimal gelöst, sollten aber für die meisten Größen funktionieren.
Mit den Gleichungen kannst du auch die Beschriftung anbringen, so dass dadurch auch sehr viel Tipparbeit entfällt. Auch die Pfeilspitzen kannst du relativ zur Bildgröße zeichnen lassen, dann solltest du für einen so gestalteten Code auch mehr Punkte bekommen, als für deinen sehr starren, den du jetzt hast.

Schau dir vielleicht auch mal einen Styleguide zum Thema Einrücken an. Du hast unten einfach nur 3 end; geschrieben und ich wette, du kannst nicht sofort sagen, welches eigentlich was bedeutet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

with pb_diagramm.Canvas do 
begin
 Moveto (20,10);                         //Ordinatenachse mit Pfeilspitzen
 //
 Lineto (15,20);

 For i:=1 to 18 do   //Einteilung der Achse
 begin              
  Moveto (20,400-i*21);
  Lineto (15,400-i*21);
 end;

 Textout (30,10,'Platzierungen');     //Beschriftung
 Textout (5,17,'1');
 //
 Textout (1,373,'18');

 Moveto (20,400);                    //Abzissenachse mit Pfeilspitzen
 //
 Lineto (400,405);

 For i:=1 to 10 do 
 begin
  Moveto (410-i*35,400);
  Lineto (410-i*35,405);

  Textout (45,405,'95/96');
  //
  Textout (400,405,'Saisons');
 end;

end; // of with pb_diagramm.Canvas do

end; // of Button1.click

Meine persönliche Meinung zu einem lesbaren Code.