1. General
  2. Ideas
0

Hint on unnecessary begin/end block

Nicholas Ring 10 years ago • 0

Found in RTL:


for I := 0 to TypeData^.PropCount-1 do

begin
begin
if (Props^[I]^.PropType^^.Kind = tkClass) and
(GetOrdProp(Owner, Props^[I]) = IntPtr(Self)) then
FPropName := System.TypInfo.GetPropName(Props^[I]);
end;
end;

It has an unnecessary begin/end block

Customer support service by UserEcho