function SwapEndian32(Value: LongWord): LongWord; inline; asm BSWAP EAX end;
function TProjectReport.GetTotalLinesOfCode: Integer; var Files: TStringDynArray; FileName: string; Lines: TStringList; begin Result := 0; Files := TDirectory.GetFiles(FProjectPath, '*.pas', TSearchOption.soAllDirectories); for FileName in Files do begin Lines := TStringList.Create; try Lines.LoadFromFile(FileName); Result := Result + Lines.Count; finally Lines.Free; end; end; end; code4bin delphi top