[fpc-pascal] Overloading properties

[Michael Fuchs]

Hello,

I try to define classes with properties an additional fluent setters. 
Unfortunally the compiler does not allow the fluent methods have the 
same names as the properties.

project1.lpr(18,24)
Error: overloaded identifier "MyString" isn't a function

Of course I could rename these methods and add a prefix like Set..., but 
I want to know why this limitation is. And if it is possible to get rid 
of it and allow the overloading of properties with methods.


Thanks
Michael

And please take a look to the example program:


--->8------>8------>8------>8------>8------>8------>8---

program OverloadingTest;
{$mode objfpc}{$H+}

uses
  Classes, SysUtils;

type
  TMyObject = class(TObject)
    private
      FMyBoolean: Boolean;
      FMyInteger: Integer;
      FMyString: String;
    public
      property MyString: String read FMyString write FMyString;
      property MyBoolean: Boolean read FMyBoolean write FMyBoolean;
      property MyInteger: Integer read FMyInteger write FMyInteger;
    public
      function MyString(Value: String): TMyObject;
      function MyBoolean(Value: Boolean): TMyObject;
      function MyInteger(Value: Integer): TMyObject;
  end;

function TMyObject.MyString(Value: String): TMyObject;
begin
  FMyString := Value;
  Result := Self;
end;

function TMyObject.MyBoolean(Value: Boolean): TMyObject;
begin
  FMyBoolean := Value;
  Result := Self;
end;

function TMyObject.MyInteger(Value: Integer): TMyObject;
begin
  FMyInteger := Value;
  Result := Self;
end;


var
  o: TMyObject;

begin
  o := TMyObject.Create.MyString('Test').MyBoolean(True).MyInteger(42);
end.

--->8------>8------>8------>8------>8------>8------>8---
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal