gib mal 'nen Buchstaben ein ... dann gibt's wieder 'ne Fehlermeldung
dann lieber so ^^
Delphi-Quellcode:
procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis : integer;
begin
ergebnis := StrToIntDef(edtAnzahl.Text, 0) + Addieren;
edtAnzahl.Text := IntToStr(ergebnis);
end;
In Zuweisung geht schon an den Funkionsnamen, nur kann man da nichts auslesen
Zitat von
SnuffMaster23:
Das Ergebnig dem Funktionsnamen zuzuweisen geht in Delphi (glaub ich) nicht oder wird jedenfalls nicht empfohlen.
Code:
function TForm1.Addieren : integer;
begin
Addieren := 1;
Addieren := [color=#ff0000][b]Addieren[/b][/color] + 1; // beim Roten wird die Function
// aufgerufen und nicht das Ergebnis ausgelesen
Result := 1;
Result := Result + 1;
end;