mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
e42842b31c
parameters (mantis #13956) * when reporting an error about too few specified parameters to a call, return the column of the call itself rather than after the last parameter (because this ends up after the end of an indexed property in case of properties, which is confusing) git-svn-id: trunk@13326 -
23 lines
363 B
ObjectPascal
23 lines
363 B
ObjectPascal
{ %fail }
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}{$H+}
|
|
{$endif}
|
|
|
|
type
|
|
{ TForm1 }
|
|
TForm1 = class
|
|
private
|
|
function GetFoo(Index: Integer; Ask: Boolean = True): Integer;
|
|
public
|
|
property Foo[Index: Integer; Ask: Boolean]: Integer read GetFoo;
|
|
end;
|
|
|
|
function TForm1.GetFoo(Index: Integer; Ask: Boolean): Integer;
|
|
begin
|
|
Result := Foo[Index];
|
|
end;
|
|
|
|
begin
|
|
end.
|