Incompatible Typen... Umgehen?

[Kedariodakon]

Mal wieder ne Hirnsinsfrage meinerseits
Kann man hier die Fehlermeldung umgehen ohne Neue Funktionen schreiben zu müssen?

Delphi-Quellcode:

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

Implementation

{ Something }

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

Problem ist das: Property IsValid: Boolean Read GetIsValid; Welches ja das: Function GetIsValid( Const IgnoreCheckedFlag: Boolean = False ): Boolean; Aufruft..
Der Compiler sieht das ganze als Problem an , ich aber net wirklich
Kann ich dem irgedwie weiß machen das das kein Problem ist, ohne weitere unnötige checkfunktionen schreiben zu müssen?

Bye

[NicoDE]

Zitat von Kedariodakon:

Der Compiler sieht das ganze als Problem an , ich aber net wirklich

Der Compiler erwartet einen bestimmten Funktions-Typ ( function GetIsValid: Boolean; ).

[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".

[Kedariodakon]

Zitat von sniper_w:

So geht das ganze.

Das das so geht is klar

Zitat von sniper_w:

Allgemein "Get" funktionen dürfen keinen Parameter übergeben, nur "Set".

Die Aussage ist Falsch!

Beispiel:

Delphi-Quellcode:

Unit Unit1;

Interface

Uses   SysUtils;

Const
   cSomethingThing: Array[ 1..4 ] Of   String = (   'Quark',
                                                                        'Torte',
                                                                        'Sahne',
                                                                        'Kirsch' );

Type
   TSomeThing   = Class
   Private
      Function GetASomeSingDingeWing( Const Index: Integer): String;
      { Private-Deklarationen }
   Public
      { Public-Deklarationen }
      Property   MySomeSingDingeWing1:   String   Index 1 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing2:   String   Index 2 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing3:   String   Index 3 Read GetASomeSingDingeWing;
      Property   MySomeSingDingeWing4:   String   Index 4 Read GetASomeSingDingeWing;
   End;


Implementation

{ TSomeThing }

Function TSomeThing.GetASomeSingDingeWing( Const Index: Integer ):   String;
Var   i: Integer;
Begin
   Result   := '';
   //   DoSomething...
   For   i   := 1 To   Index Do Begin
      Result   :=   Result   + cSomethingThing[ Index ];
   End;
End;

end.

Zwar Sinnlos, aber egal

Bye

[maximov]

Das geht schon, aber nicht ohne eins von beiden zu ändern. Wenn nicht die fubnktion, dann halt die property:

Zitat von Kedariodakon:

Mal wieder ne Hirnsinsfrage meinerseits
Kann man hier die Fehlermeldung umgehen ohne Neue Funktionen schreiben zu müssen?

Delphi-Quellcode:

...      { Public-Deklarationen }
      Property   IsValid[Const IgnoreCheckedFlag: Boolean]:   Boolean   Read GetIsValid;
   ....

[jim_raynor]

Zitat von Kedariodakon:

Zitat von sniper_w:

So geht das ganze.

Das das so geht is klar

Zitat von sniper_w:

Allgemein "Get" funktionen dürfen keinen Parameter übergeben, nur "Set".

Die Aussage ist Falsch!

Bye

Warum. Da steht, allgemein.

Eine weitere Ausnahme ist, wenn du es als Array Property hast. Also:

property IsValue[Index: Integer]: Boolean read GetIsValue; Dann muss die Funktion einen Integer-Paramter haben.

[Kedariodakon]

Zitat von jim_raynor:

Warum. Da steht, allgemein.

Überlesen


Hätte ja sein können das es auch sowas wie index für boolsche WErte gibt...

Bye

[sniper_w]

Ich dachte mit "Allgemein", dass "Get" Funktionen nicht dafür vorgesehen sind, sonst macht man das irgend wie anders. Man will ja mit GET üblicherwiese nur ein Wert entsprechend auslesen.

[Kedariodakon]

Zitat von sniper_w:

Ich dachte mit "Allgemein", dass "Get" Funktionen nicht dafür vorgesehen sind, sonst macht man das irgend wie anders. Man will ja mit GET üblicherwiese nur ein Wert entsprechend auslesen.

Genau "entsprechend" ist das Zauberwort.

Naja habs nun noch mit einer zweiten Funktion gemacht, welche aber eigendlich 4 Zeilen unnützen Code darstellen
+ Dekleration = 5

Bye