CompanyInfo.pas

CompanyInfo.GET;

IF CompanyInfo.Address <> EMPTY_STRING THEN
  CompanyDetailsArray[1] := CompanyInfo.Address + ConstantMgt.SPACE
ELSE CompanyDetailsArray[1] := EMPTY_STRING;

IF CompanyInfo."Address 2" <> EMPTY_STRING THEN
  CompanyDetailsArray[2] := CompanyInfo."Address 2" + ConstantMgt.PERIOD
ELSE CompanyDetailsArray[2] := EMPTY_STRING;

IF CompanyInfo."Phone No." <> EMPTY_STRING THEN
  CompanyDetailsArray[3] := TEL_NO + CompanyInfo."Phone No." + ConstantMgt.SPACE
ELSE CompanyDetailsArray[3] := EMPTY_STRING;

IF CompanyInfo."Fax No." <> EMPTY_STRING THEN
  CompanyDetailsArray[4] := FAX_NO + CompanyInfo."Fax No." + ConstantMgt.SPACE
ELSE CompanyDetailsArray[4] := EMPTY_STRING;

IF CompanyInfo."E-Mail" <> EMPTY_STRING THEN
  CompanyDetailsArray[5] := EMAIL_ID + CompanyInfo."E-Mail" + ConstantMgt.SPACE
ELSE CompanyDetailsArray[5] := EMPTY_STRING;

IF CompanyInfo."Home Page" <> EMPTY_STRING THEN
  CompanyDetailsArray[6] := WEB_SITE + CompanyInfo."Home Page"
ELSE CompanyDetailsArray[6] := EMPTY_STRING;

COMPRESSARRAY(CompanyDetailsArray);

EXIT(CompanyDetailsArray[1] + CompanyDetailsArray[2] +
      ConstantMgt.CARROT_SYMBOL +
        CompanyDetailsArray[3] + CompanyDetailsArray[4] +
          ConstantMgt.CARROT_SYMBOL +
            CompanyDetailsArray[5] + CompanyDetailsArray[6]);