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
Delphi-Quellcode:
procedure TForm1.ButtonBerechnenClick(Sender: TObject);
begin
m := StrToInt (EditPalettenlast.Text);
g := 10;
n_eins := 1;
n_zwei := 2;
n_drei := 3;
n_vier := 4;
n_fuenf := 5;
n_sechs := 6;
//Berechnung für eine Palette
Fa := ((n_eins*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*0.45);
LabelMoment.Caption := floatToStr(Mmax);
//Berechnung für zwei Paletten
Fa := ((n_zwei*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*0.45);
LabelMoment.Caption := floatToStr(Mmax);
//Berechnung für drei Paletten
Fa := ((n_drei*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := ((Fa*1.35)-(m*g*0.9));
LabelMoment.Caption := floatToStr(Mmax);
//Berechnung für 4 Paletten
Fa := ((n_vier*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*1.35-m*g*0.9);
LabelMoment.Caption := floatToStr(Mmax);
//Berechnung für 5 Paletten
Fa := ((n_fuenf*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*2.25-m*g*1.8-m*g*0.9);
LabelMoment.Caption := floatToStr(Mmax);
//Berechnung für 6 Paletten
Fa := ((n_sechs*m*g)/2);
LabelAuflager.Caption := floatToStr(Fa);
Mmax := (Fa*2.25-m*g*1.8-m*g*0.9);
LabelMoment.Caption := floatToStr(Mmax);
end;
[edit=Sharky]Delphi-Tags eingefügt. Bitte beim nächsten mal selber machen. Mfg, Sharky[/edit]