convertir arreglo Array[0..33] of Char; a cadena

[ecfisa]

Hola roman.

El código

Código Delphi [-]
procedure TForm1.btnDemoClick(Sender: TObject);
var
  aSerie : array[0..33] of Char;
  i: Byte;
  Cadena: string;
begin
  for i:= 0 to 33 do aSerie[i]:= Chr(63+i);
  SetString(Cadena, aSerie, Length(aSerie));
  ShowMessage(Cadena);
end;

fué un demo para que pudiera ver el uso de SetString en el pasaje de array of char a string. El copiado de caracteres es sólo a efectos de que Cadena tuviera un valor para mostrar.

Saludos.