Crear array of char con valores predeterminados

[[nlsgarcia]]

Lepuke,

Empezado por Lepuke

...Crear array of char con valores predeterminados...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   ArrName : Array of Char;
   Name : String;
   AuxName : String;
   i : Integer;

begin

   Name := 'Nelson Garcia';

   SetLength(ArrName,Length(Name));
   StrPCopy(@ArrName[0],Name);
   Showmessage('ArrName: ' + String(@ArrName[0]));

   AuxName := String(@ArrName[0]);
   Showmessage('AuxName: ' + AuxName);

   AuxName := EmptyStr;
   for i := Low(ArrName) to High(ArrName) do
      AuxName := AuxName + ArrName[i];
   Showmessage('AuxName: ' + AuxName);

   Finalize(ArrName);

end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, ejemplifica el uso de arreglos dinámicos de tipo Char.

Espero sea útil

Nelson.