Kann mir jemand bei der erstellung eines Quelltextes helfen?

[Daniel B]

Hi,

Du darfst die Prozeduren nicht im type von Form1 deklarieren, sondern unter private oder public!!!

Delphi-Quellcode:

type 
  TForm1 = class(TForm) 
    a: TEdit; 
    b: TEdit; 
    fi: TEdit; 
    Ergebnis: TEdit; 
    Berechnen: TButton; 
    CheckBox1: TCheckBox; 
    procedure ErgebnisChange(Sender: TObject); 
    procedure BerechnenClick(Sender: TObject); 
    procedure CheckBox1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure aChange;
    procedure bChange; 
    procedure fiChange;
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.aChange;
begin 
   //Eingabe fließt als a in ergebnis ein 
end; 

procedure TForm1.bChange; 
begin 
   //2*3,14159 geteilt durch Eingabe b fließt als B in Ergebnis ein 
end; 

procedure TForm1.CheckBox1Click(Sender: TObject); 
begin 
   {wenn Checkbox markiert wird eingabe in b  (b mal mit 3,14159 multipliziert)} 
end; 

procedure TForm1.fiChange; 
begin 
   //Eingabe fließt als fi in Ergabnis ein 
end; 

procedure TForm1.BerechnenClick(Sender: TObject); 
begin 
   //Bei klick des Buttons wird ergebnis angezeigt 
end; 

procedure TForm1.ErgebnisChange(Sender: TObject); 
begin 
   (*Ergebnis grundform  f(x)=Eingabe in feld a*sin(eingabe in feld b(x-eingabe in feld fi))*) 
   {mit sin bzw. x muss nichts gerechnet werden es müssen nur die eingaben eingesetzt werden.} 

end; 

end.

Grüsse, Daniel