Begrenzung/Bereich einer Ellipse !!!

[himitsu]

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.

[taza]

ich habe

 begin if MausklickDrin(x,y) then form1.caption:='Ist drin' else form1.caption:='Ist nicht drin.' end; zu

 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); hinkopiert, wo nämlich auch schon andere Sachen stehen !!!

Und da zeigt er mir den Fehler an:

Operator oder Semikolion fehlt; und zwar genau zwischen

 MausklickDrin(x und ,y) Naja; vielleicht fällt mir ja noch was ein !!!!!!!!!!!!!!

[Thunderchild]

Das mit dem Semikolon ist nur ne Schreibfaulheit von mir. Ich laß das da, wo es erlaubt ist, einfach weg. Also am Zeilen(bzw. Befehls-)ende vor einem end, until, finally ect.