schleife für Rechenaufgabe...

[Die Muhkuh]

Machs einfach so:

Delphi-Quellcode:

var
  a, b, c, d, z1, z2, er: Extended;
begin
  Z1 := strtofloat(Edit1.text);
  Z2 := strtofloat(Edit2.text);
  
  Z1 := a + b; //oder auch +-*/
  Z2 := Z1+ c; //oder auch +-*/
  er := Z2+ d; //oder auch +-*/

Panel1.caption := floattostr (er);

end;

Spider