Recherche:

TStringDynArray et TCharDynArray ce sont bien ceux de l'unité Types ?

sinon tu peux le faire plus simplement


const
CHAR_A_REMPLACER : array[0..2] of Char = ('^', '|', '=');
begin
...

Pourquoi ne pas utiliser le TSysCharSet ?


function MyClass.EncodeStr(const Trame: string; const TabChar: TSysCharSet; const TabStr: TStringDynArray ): string;

dans ton code, cela ne changera...