function mit eigenem Type als Rückgabewert -> Zugriffsver...

[xZise]

Zitat von Christian Seehase:

Moin Fabian,

const wäre hier besser, damit man gar nicht erst Gefahr läuft innerhalb der Methode etwas zuzuweisen:

Delphi-Quellcode:

procedure TBruchedit.CreateATermteil(ATyp: TTermteiltyp; ATermteil: string; const ACreatedTermTeil : TTermTeil); //die function ist overloaded
begin
  ACreatedTermTeil.Typ:= ttNormalerTermteil;
  ACreatedTermTeil.Termteil:= ATermteil; //<-- Zugriffsverletzung
end;

Stimmt Bei Klassen braucht man das ja nicht

So wäre es vermutlich besser

Delphi-Quellcode:

procedure TBruchedit.CreateATermteil(const ATyp : TTermteiltyp; const ATermteil : string; const ACreatedTermTeil : TTermTeil); //die function ist overloaded
begin
  if Assigned(ACreatedTermTeil) then // Test ob das Objekt existiert
  begin
    ACreatedTermTeil.Typ := ttNormalerTermteil;
    ACreatedTermTeil.Termteil := ATermteil;
  end;
end;