Lepuke,
Cita:
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
public
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.