一个第3方的组件在Procedures上写了很多过程和函数,但竟然在组件中不可以用用户调用不明白(5分)

一个第3方的组件在
Procedures上写了很多过程和函数
但竟然在组件中不可以用用户调用不明白
片段:

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, StdCtrls, Buttons, ExtCtrls,grids,dbgrids,
QUICKRPT,QRCTRLS,QRPRNTR,QREXTRA,printers;

procedure ShowReportByDataSet(DSet: TDataSet;cap:string);
procedure ShowReportByGrid(Grid: TDBGrid;cap:string);

implementation

function GetAl(F:TField):TAlignment;
begin
Result:=taLeftJustify;
case F.DataType of
ftUnknown, ftString: Result:=taLeftJustify;
ftAutoInc,ftSmallint, ftInteger, ftWord,ftFloat, ftCurrency, ftBCD,ftBytes:
Result:=taRightJustify;
ftBoolean, ftDate, ftTime, ftDateTime:
Result:=taCenter;
end;
end;

procedure SetPages(b:TQRBand);
begin
with TQRSysData(b.AddPrintable(TQRSysData)) do
begin
Data:=qrsPageNumber;
AutoSize:=False;
Left:=0;
Top:=0;
Width:=b.Width;
Text:='耱?';
Alignment:=taCenter;
end;
end;

procedure SetTitle(b:TQRBand;Cap:string);
begin
with TQRLabel(b.AddPrintable(TQRLabel)) do
begin
AutoSize:=False;
Left:=0;
Width:=b.Width;
Caption:=Cap;
Size.Top:=1;
Font.Style:=[fsBold];
Font.Color:=clBlue;
Font.Size:=14;
Alignment:=taCenter;
AutoStretch:=True;
end;
end;