30-03-2017, 12:39 PM
السلام عليكم
الكود
ثم ارسلت مصفوفة النصوص ابتداء من المحرف الاول الى نهاية السلسلة الى مصفوفة البايتات ثم اردت ارجاعها الى مصفوفة نصوص ووضعها في memo
لكن لم انجح اين الخطا في الكود بارك الله فيكم
والسلام عليكم
الكود
كود :
const s=('1,2,3,4,5,6,7,8,9,10,11,12,13');
procedure TForm1.Button1Click(Sender: TObject);
var b:array of byte;
t:string;
c: byte;
g:char;
begin
SetLength(b,length(s));
move(s[1],b,length(s));
for c in b do
begin
t:=t+chr(c);
end;
memo1.Lines.Add(t);
end;
اردت وضع مصفوفة نصوص في مصفوفة بايتات اعطيت مصفوفة البايتات نفس الحجم باستخدام setlengthلكن لم انجح اين الخطا في الكود بارك الله فيكم
والسلام عليكم