So nächstes Problem.
Ich hatte erst ein wenig selber versuchen wollen es zu lösen aber ich schaff es einfach nicht. (Zu wenig Vorkentnisse?)
Delphi-Quellcode:
procedure TForm1.ErgebnisClick(Sender: TObject);
var
Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9,Plus,Ergebnis: integer;
begin
Zahl1 := StrToInt(Button1.Caption);
Zahl2 := StrToInt(Button2.Caption);
Zahl3 := StrToInt(Button3.Caption);
Zahl4 := StrToInt(Button4.Caption);
Zahl5 := StrToInt(Button5.Caption);
Zahl6 := StrToInt(Button6.Caption);
Zahl7 := StrToInt(Button7.Caption);
Zahl8 := StrToInt(Button8.Caption);
Zahl9 := StrToInt(Button9.Caption);
Ergebnis:= Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9+Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Zahl9;
Label1.Caption:= IntToStr (Ergebnis);
end;
Mein Problem:
Ich kann ja nicht einfach schreiben:
Ergebnis:= Zahl1+Zahl2;
Da ja sonst nicht die restlichen Möglichkeite (zb.: Zahl1+Zahl8) nicht mitprogrammiert wären.
Allerdings glaube ich nicht, das man jede Möglichkeit selber aufschreiben müsste, also
Ergebnis:= zahl1+zahl2;
Ergebnis:= zahl1+Zahl3;
usw.
Ich hatte mir also gedacht es sollte so funktionieren:
Ergebnis:= Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl8,Za hl9+Zahl1,Zahl2,Zahl3,Zahl4,Zahl5,Zahl6,Zahl7,Zahl 8,Zahl9;
Aber dem ist nicht so. Weiß jemand wie ich das jetzt ändern muss, damit alle Möglichkeiten genutzt werden können?
Mfg Ghost