Schonmal irgendwo gesehen?
f(x) = Y1 + (Y2 - Y1) / (X2 - X1) * (X - X1)
Die GetX stellt aus den Punktepaaren 160cm/91PixelX 200cm/584PixelX und die GetY aus den Punktepaaren 120kg/91PixelY 40kg/310PixelY die Funktionsgleichungen auf. GetX ist also eine f(cm Körpergröße) und GetY eine f(kg Körpergewicht) bezogen auf den Funktionsbereich GetRect in Pixel.
Würde eher die Variablen Groeese und Gewicht in Form2 deklarieren und in einer property zur Verfügung stellen sonst bekommst du eine Zirkularität rein.
Delphi-Quellcode:
TForm2 = class(TForm)
..
private
FGroesse, FGewicht: double;
public
property Groesse: double read FGroesse write FGroesse;
property Gewicht: double read FGewicht write FGewicht;
end;
Innerhalb von TForm2 verwendest du FGroesse, FGewicht (F wie Feld).
und in unit1:
Delphi-Quellcode:
Form2.Groesse := StrToFloatDef(Edit1.Text, 0);
Form2.Gewicht := StrToFloatDef(Edit2.Text, 0);