Forum: Programmieren allgemein
by foofighter85,
11. Aug 2008
bekomme es nicht hin...habs jetzt so geschrieben, aber funktioniert nicht, da er minValue als undefinierten Bezeichner meldet.
Fa := ((n_sechs*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*2.25-m*g*1.8-m*g*0.9);
Mmax_min := minValue(Mmax);
LabelMoment.Caption := floatToStr(Mmax_min);
Forum: Programmieren allgemein
by foofighter85,
11. Aug 2008
hey leute, hab mehrere Rechnungen die alle das gleiche Ausrechnen nur mit unterschiedlichen Ausgangswerten jeweils....jetzt möchte ich das in meinem Label nur das geringste Ergebnis der Rechnungen angezeigt wird...hier ist mal mein code dafür....bin ein anfänger :)
procedure TForm1.ButtonBerechnenClick(Sender: TObject);
begin
m := StrToInt (EditPalettenlast.Text);
g := 10;
...