problem beim erstellen einer Funktion

**sigma**

hallo ich habe ein Problem mit meiner Funktion
ich will eine funkion schreiben damit ich nicht immer bei meinem Taschenrechner bei jeder zeile den quelltext schreiben muss will dort nur noch die funktion auf rufen und dann soll es klappen
kann mir jemand dabei vielleicht helfen

zusammenfalten · markieren

Delphi-Quellcode:

			function Taste (tas:Tbutton): integer; forward;

var strZahl: string;

    dblX : double;

    begin

         if edtEingabe.Text = '0' then

            edtEingabe.Text := tas.caption

            else

            edt.Eingabe.Text := edtEingabe.Text + tas.Caption;

            strZahl := edtEingabe.Text;

            dblX := StrToFloat (StrZahl);

    end;

hoffe das man so eine Funktion erstellt
danke als mal für die hilfe

problem beim erstellen einer Funktion

problem beim erstellen einer Funktion

Forumregeln