administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #1669

Browse source
This commit is contained in:
Бондарев Иван 2019-01-30 20:34:13 +01:00
parent f0da75b732
commit ac7b484868
3 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CodeCompletion/CodeFormatter.cs
View file

@ -648,6 +648,10 @@ namespace CodeFormatters
if (trimedstr.StartsWith("."))
comm = trimedstr;
}
else if (sn is simple_property)
{
comm = RemoveOverSpaces(comm).Replace(" ;", ";");
}
if (comm.StartsWith(" "))
add_space_before = true;
if (comm != "()")

19
TestSuite/formatter_tests/input/property6.pas Normal file
View file

@ -0,0 +1,19 @@
type
T = class
fX: byte;
property A0 : byte write ; abstract ;
property B0 : byte read ; abstract ;
property C0 : byte read write ; abstract ;
property A1 : byte write fX ; virtual ;
property B1 : byte read fX ; virtual ;
property C1 : byte read fX write fX ; virtual ;
property A3 : byte write begin end ; virtual ;
property B3 : byte read 0 ; virtual ;
property C3 : byte read 0 write begin end ; virtual ;
end;
begin
end.

19
TestSuite/formatter_tests/should/property6.pas Normal file
View file

@ -0,0 +1,19 @@
type
T = class
fX: byte;
property A0: byte write; abstract;
property B0: byte read; abstract;
property C0: byte read write; abstract;
property A1: byte write fX; virtual;
property B1: byte read fX; virtual;
property C1: byte read fX write fX; virtual;
property A3: byte write begin end; virtual;
property B3: byte read 0; virtual;
property C3: byte read 0 write begin end; virtual;
end;
begin
end.