28-01-2012, 02:16 PM
28-01-2012, 02:54 PM
وعليكم السلام ورحمة الله
في دلفي النصوص String هي بدورها جداول من الأحرف:
حيث يمكنك تحويل الحرف إلى Byte باستخدام التابع المضمن Ord
فما الذي تحاول عمله؟
في دلفي النصوص String هي بدورها جداول من الأحرف:
كود :
ShowMessage(Edit1.Text[1]);كود :
ShowMessage(IntToStr(Ord(Edit1.Text[1])));28-01-2012, 07:31 PM
شكرا اخى
الفكره التى أردت تطبيقها هى هكذا مثل الصوره
حاولت استعمال copy لكن لم تنجح فى الداله التاليه حيث ساعتبر بارماتر الداله فى ما بعد هو edit.text
رسالة الخطأ
الفكره التى أردت تطبيقها هى هكذا مثل الصوره
كود :
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.png28-01-2012, 11:47 PM
تم الحل بهذه الطريقه
كود :
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;29-01-2012, 05:38 PM
إن كنت تحاول تحويل String إلى Bytes فهناك حلول جاهزة:
إن كان طول الجدول بنفس طول النص:
في مثالك، استخدم HexToBin المعرفة في Classes:
توابع أخرى مشابهة معرفة كلها في SysUtils:
بالتوفيق.
إن كان طول الجدول بنفس طول النص:
كود :
var
S: string;
begin
S := Edit1.Text;
Move(S[1], Tab, length(S));PHP كود :
HexToBin(PChar(S), @Tab[1], length(S));
كود :
HexByte
HexChar
IntToHexبالتوفيق.
29-01-2012, 07:45 PM
بارك الله فيكما