Incompatible Typen... Umgehen?

[sniper_w]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
   TSomething   = Class
   Private
      { Private Deklarationen }
      fCheckedFlag:   Boolean;
      FIsValid:         Boolean;
      Function GetIsValid(  {IgnoreCheckedFlag: Boolean = False }):   Boolean;
   Public
      { Public-Deklarationen }
      Property   IsValid:   Boolean   Read GetIsValid;
   End;

var
  Form1: TForm1;

Implementation

{ Something }

Function TSomething.GetIsValid( {IgnoreCheckedFlag: Boolean = False }):   Boolean;
Begin
   If    Not( fCheckedFlag ) {Or IgnoreCheckedFlag )}   Then Begin
      //   Check   ....
      //   FIsValid   :=   ...;
      fCheckedFlag := True;
   End;
   Result   := FIsValid;
End;


{$R *.dfm}

end.

So geht das ganze. Allgemein "Get" funktionen dürfen keinen Parameter übergeben, nur "Set".