david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
22 lines
313 B
Plaintext
22 lines
313 B
Plaintext
Program IFSTest;
|
|
type
|
|
TArrayOfByte = array of byte;
|
|
|
|
procedure Test(x: TARrayOfByte);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
for i := 0 to Getarraylength(X) -1 do
|
|
begin
|
|
writeln(inttostr(x[i]));
|
|
end;
|
|
end;
|
|
var
|
|
temp: TArrayOfByte;
|
|
|
|
Begin
|
|
setarraylength(temp, 2);
|
|
temp[0] := 1;
|
|
temp[1] :=23;
|
|
test(temp);
|
|
End. |