Zitat:
Ich brauche aber einen Rückgabewert.
Delphi-Quellcode:
procedure MeineProcedure(Test: string; var MeineRückgabeinderProcedure: Integer);
begin
if Test <> '' then
MeineRückgabeinderProcedure := 10;
end;
Du siehst also um eine Rückgabe zu erhalten benötigt man nicht in jedem fall eine Funktion.
var ist das Schlüsselwort vor MeineRückgabeinderProcedure.
Ob er jetzt das als Methode meint keine Ahnung.
Oder wie in deinem Beispiel.
Delphi-Quellcode:
procedure rechteckGetroffen(var Getroffen: BOOL);
begin
if (Mouse.CursorPos.X > x1) AND (Mouse.CursorPos.X < x2) AND
(Mouse.CursorPos.Y > y1) AND (Mouse.CursorPos.Y < y2) then
Getroffen:=true
else
Getroffen:=false;
end;
Delphi-Quellcode:
procedure TRect.anfassen;
var
FGetroffen: BOOL;
begin
rechteckGetroffen(FGetroffen);
if FGetroffen then
z:=1;
end;
gruss