+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية و ضع edit.text فى مصفوفه (/showthread.php?tid=3835)
كيفية و ضع edit.text فى مصفوفه - abdeslem1982 - 28-01-2012
السلام عليكم
كيف يمكن ان احول edit.text الى مصفوفه بايتات array to byte
كيفية و ضع edit.text فى مصفوفه - kachwahed - 28-01-2012
وعليكم السلام ورحمة الله
في دلفي النصوص String هي بدورها جداول من الأحرف:
كود :
ShowMessage(Edit1.Text[1]);كود :
ShowMessage(IntToStr(Ord(Edit1.Text[1])));كيفية و ضع edit.text فى مصفوفه - abdeslem1982 - 28-01-2012
شكرا اخى
الفكره التى أردت تطبيقها هى هكذا مثل الصوره
كود :
http://www7.0zz0.com/2012/01/28/18/142574743.jpgكود :
tab=array[1..7] of byte
الداله
function strtab(s:string):tab;
var
i:integer;
k:tab;
begin
for i:=0 to 7 do
begin
if i=0 then
k[i]:= Ord(copy(s,i+1,2))
else
k[i]:=ord(copy(s,i+2,2));
end;
strtab:=k;
end;كود :
http://www14.0zz0.com/2012/01/28/18/655968754.pngكيفية و ضع edit.text فى مصفوفه - abdeslem1982 - 28-01-2012
تم الحل بهذه الطريقه
كود :
function strtab(s:string):tab;
var
i,j:integer;
k:tab;
begin
for i:=0 to length(s)-2 do
begin
if i=0 then
begin
k[0]:=StrToByte(copy(s,i+1,2));
end
else if i= 1 then
k[1]:=StrToByte(copy(s,i+2,2))
else if((i>1) and (not((i mod 2)=0))) then
begin
j:=(i div 2)+1;
k[j]:=StrToByte(copy(s,i+2,2));
end;
end;
strtab:=k;
end;كيفية و ضع edit.text فى مصفوفه - kachwahed - 29-01-2012
إن كنت تحاول تحويل String إلى Bytes فهناك حلول جاهزة:
إن كان طول الجدول بنفس طول النص:
كود :
var
S: string;
begin
S := Edit1.Text;
Move(S[1], Tab, length(S));PHP كود :
HexToBin(PChar(S), @Tab[1], length(S));
كود :
HexByte
HexChar
IntToHexبالتوفيق.
كيفية و ضع edit.text فى مصفوفه - mobile - 29-01-2012
بارك الله فيكما