Problem mit function

[FOXHOUND]

Hi,

ich bin erst seit kurzem hier im Forum angemeldet. Ich hoffe dass, ihr mir helfen könnt.

Zu meinem Problem:

Ich habe in der Schule die Aufgabe bekommen einen Taschenrechner mit Hilfe von "function" zu programmieren. Allerdings erhalte ich einige Fehlermeldungen sobald ich functions benutzen möchte. Vorher definierte und erkannte Variablen werden nicht mehr erkannt, genau so auch bei den Edit-Feldern.

Mein Projekt findet ihr im Anhang. Nicht wundern: Die Zahlen werden noch (alte Version) über Procedures eingegeben. Einziges Beispiel wäre Bn0 wo ich versucht habe, meine Vorstellung zu realisieren. Und rechnen kann er auch noch nicht, da ich im Moment noch auf der Suche nach ner geeigneten Punkt-vor-Strich-Lösung bin. Vielleicht könnt ihr mir auch dahingehend helfen.

Schonmal vielen Dank.

Andrej

[Helmi]

Hallo,

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

Dann heisst es auch

Delphi-Quellcode:

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;

[FOXHOUND]

Danke für die schnelle Hilfe. Hat alles super funktioniert. Hat vielleicht noch jemand ne Idee um Pinkt - vor - Strich so einfach wie möglich zu realisieren?

Gruß
Andrej