Das hier ist noch schlimmer :
Code:
procedure TForm1.ErgebnisChange(Sender: TObject);
begin
if checkbox1.checked then
* btemp := b 'Wenn checkbox angehakt muss b mit pi multipliziert werden;
else
* btemp := floattostr(3,14159 * strtofloat(b));
DeinLabel.Caption := 'f(x) =' a + '*sin(btemp(x-' + (-fi) + '))';
guck Dir mal Dein a und b an.
Die stehen einfach so im Raum rum!
Gruß
Hansa