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.