Letzter Versuch:
Delphi-Quellcode:
var
Groesse, Gewicht: double;
P: TPoint;
C: char;
begin
C := 'X';
Groesse := StrToFloatDef(Edit1.Text, 0);
Gewicht := StrToFloatDef(Edit2.Text, 0);
P := Point(GetX(Groesse), GetY(Gewicht));
P.X := P.X - Image1.Canvas.TextWidth(C) div 2;
P.Y := P.Y - Image1.Canvas.TextHeight(C) div 2;
Image1.Canvas.TextOut(P.X, P.Y, C);
end;
Jetzt frag mich bitte bitte bitte nicht wo die GetX und GetY herkommen..