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.
