Tweet
Hallo!
Habe folgendes Problem:
Ich möchte einen Zahlenwert aus einem Edit-Feld einer Funktion übergeben.
Bei dem Versuch:
Berechnung(StrToFloat(Edit_Liter));
wird mir die Fehlermeldun "Inkompatible Typen:'String' und TEdit' angezeigt. Ich möchte den Wert aus dem Editfeld als Real-Wert entnehmen und in einer Funktion übergeben. Das ganze soll dann geschehen, wenn ein Button gedrückt wird. Das ganze sieht bei mir so aus:
function TForm1.Berechnung(Menge:Real):Real;
var
summe:Real;
begin
Berechnung:=menge*0.5;
end;
procedure TForm1.Button_uebernehmenClick(Sender: TObject);
begin
Berechnung(StrToFloat(Edit_Liter));
end;
Kann mir bei meinem Problem jemand behilflich sein??
Viele Grüße,
Marco
Habe folgendes Problem:
Ich möchte einen Zahlenwert aus einem Edit-Feld einer Funktion übergeben.
Bei dem Versuch:
Berechnung(StrToFloat(Edit_Liter));
wird mir die Fehlermeldun "Inkompatible Typen:'String' und TEdit' angezeigt. Ich möchte den Wert aus dem Editfeld als Real-Wert entnehmen und in einer Funktion übergeben. Das ganze soll dann geschehen, wenn ein Button gedrückt wird. Das ganze sieht bei mir so aus:
function TForm1.Berechnung(Menge:Real):Real;
var
summe:Real;
begin
Berechnung:=menge*0.5;
end;
procedure TForm1.Button_uebernehmenClick(Sender: TObject);
begin
Berechnung(StrToFloat(Edit_Liter));
end;
Kann mir bei meinem Problem jemand behilflich sein??
Viele Grüße,
Marco
Comment