zum 2.:
Delphi-Quellcode:
procedure TForm1.FormMouseDown;
begin
if MausklickDrin(x,y) then {form1.}Canvas.TextOut(10, 20, 'Ist drin') {form1.}Canvas.TextOut(10, 20, 'Ist nicht drin.';
end;
zum 1.: wo meckert der genau?
Ach ja, für das Funktionsergebnis macht sich auch Result ganz gut, das ist extra dafür erschaffen wurden
Delphi-Quellcode:
function MausklickDrin(x,y:integer):boolean;
begin
Result := irgendwas;
end;
ist zwar das Selbe wie
Delphi-Quellcode:
function MausklickDrin(x,y:integer):boolean;
begin
MausklickDrin := irgendwas;
end;
aber wenn man z.B. mal die Funktion umbenennt, so braucht man den Name innerhalb der Funktion nicht mehr zu ändern.