16-02-2016, 04:16 PM
(14-02-2016, 09:40 PM)Agmcz كتب : وعليكم السلام
هكذا أخي
PHP كود :type
TByteArray = array[0..99999999] of Byte;
PByteArray = ^TByteArray;
var
datamain: PByteArray;
datatmp: PByteArray;
const
arrbyt: array[0..9] of Byte = ($1,$2,$3,$4,$5,$6,$7,$8,$9,10);
procedure TForm1.Button1Click(Sender: TObject);
begin
GetMem(datamain, 10);
CopyMemory(datamain, @arrbyt, 10);
GetMem(datatmp, 5);
CopyMemory(datatmp, @datamain[4], 5);
ShowMessage(IntToStr(datatmp[0]));
FreeMem(datatmp);
FreeMem(datamain);
end;
جميل جدا بارك الله بيك اخي العزيز