Lookup

procedure Lookup(

  const Set_String: PChar;

  const ATable: array of string;

  const AData: char;

  var ADest: TCharDynArray

);

procedure Lookup(

  const Set_String: PChar;

  const ATable: array of string;

  const AData: Byte;

  var ADest: TCharDynArray

);

procedure Lookup(

  const Set_String: string;

  const ATable: array of string;

  const AData: char;

  var ADest: string

);