Problem mit function

[Helmi]

Hallo,

du musst deine function Eingabe in den private-Bereich schreiben.

Dann heisst es auch
function TForm1.Eingabe(Ziffer:String):String; die Variablen Zahl und x hab ich auch in den private-Bereich gelegt.

hier die gesamte Änderung:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    Zahl: String;
    x   : Extended;

    function Eingabe(Ziffer:String):String;         //Problem //Lösung
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Eingabe(Ziffer:String):String;             //Problem
Begin
  IF EditEnter.Text='0' THEN Result:=Ziffer ELSE
    Result:=EditEnter.Text + Ziffer;
  Zahl:=Result;
  x:=StrToFloat(Zahl);
End;