Function

TPCESkin.ItemStr

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

Function delimitedStrC: string;
returns string to be assigned to Tlist in PCEData object

Visibility

Public

Overrides

TPCEItem.ItemStr

Owner

TPCESkin

Declaration

function ItemStr: string; override;

Calls Hierarchy


TPCESkin.ItemStr
 └GetPCECodeString
   └CodeSetIndex
     ├LoadImmSeriesItems
     ├LoadImmReactionItems
     ├LoadSkResultsItems
     ├LoadPEDLevelItems
     ├LoadHFLevelItems
     └LoadXAMResultsItems

Calls

Name Declaration Comments
GetPCECodeString function GetPCECodeString(CodeType: integer; ID: string): string; -


Source

1124  function TPCESkin.ItemStr: string;
1125  {returns string to be assigned to Tlist in PCEData object}
1126  begin
1127    if(Results <> NoPCEValue) then
1128      Result := GetPCECodeString(TAG_SKRESULTS, Results)
1129    else
1130      Result := '';
1131    Result := Result + U;
1132    if(Reading <> 0) then
1133      Result := Result + IntToStr(Reading);
1134    Result := Result + U + inherited ItemStr;
1135  end;