Dein Bild hat eine Breite von 100. xMax=100;
Und eine Höhe von 100. yMax=100;
Delphi-Quellcode:
xMin:=1; xMax:=100;
yMin:=1; yMax:=100;
EinerStelle:=x mod 10;
ZehnerStelle:=x div 10;
if (y > yMin) then
ZehnerStelle:=ZehnerStelle + (y - yMin) * xMax;
Nummer:=(ZehnerStelle * 10) + EinerStelle;
Der Wert in Nummer ergibt die durchnummerierte Zahl.
MfG,
terence