Crear array of char con valores predeterminados

[ecfisa]

Hola Lepuke.

No entiendo el sentido del código, pero si como estimo, deseas pasar el contenido del string al array of Char, deberías hacer:

Código Delphi [-]
...
  test := 'hola mundo';
  StrPCopy(@probando[1], test); // o también: StrPCopy(Addr(probando[1]), test);
...

Saludos

[[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.

[JuanOrtega]

gracias por la ayuda , tengo un duda sobre el mismo tema , si en vez de que sea un Array of Char sea un Array of Byte ¿ como seria para agregarles varios elementos ? , intente con los ejemplos que me dieron y siempre me devuelve el mismo error :

There is no overloaded version of 'StrPCopy' that can be called with these arguments

[[nlsgarcia]]

Lepuke,

Empezado por Lepuke

...si en vez de que sea un Array of Char sea un Array of Byte ¿como seria para agregarles varios elementos?...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
   Max = 10;

var
   A1 : Array of Byte;
   i : Integer;

begin

   for i := 1 to Max do
   begin
      SetLength(A1,Length(A1)+1);
      A1[High(A1)] := i;
   end;

   for i := Low(A1) to High(A1) do
      MessageBox(0, PChar(Format('A1[%d] = %d',[i,A1[i]])) , 'Dynamic Arrays', MB_OK);

   Finalize(A1);   

end;

end.

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

Espero sea útil

Nelson.

[JuanOrtega]

era el ejemplo que buscaba , gracias por la ayuda nlsgarcia.