16-05-2018, 12:08 AM
السلام عليكم
ربما تساعد بعض الاخوة بالتوفيق.
![[صورة: LUe1q80.png]](https://i.imgur.com/LUe1q80.png)
ربما تساعد بعض الاخوة بالتوفيق.
PHP كود :
procedure TMainForm.Button1Click(Sender: TObject);
var
i: integer;
MyHex, MyByte: string;
begin
MyHex := Memo1.Text;
if MyHex <> '' then
begin
for i := 1 to Length(MyHex) do
begin
if i mod 2 = 0 then
begin
MyByte := MyByte + MyHex[i - 1] + MyHex[i] + ',$';
end;
end;
insert('$', MyByte, 1);
SetLength(MyByte, Length(MyByte) - 2);
Memo2.Text := MyByte;
end;
end;