raeisi_15494
چهارشنبه 10 شهریور 1389, 17:16 عصر
دوستان سلام
كد زير يك رشته را به هگز تبديل ميكنه
چطور ميتوان كد را دوباره به متن اوليه تبديل كرد
procedure TForm6.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption :=
Label1.Caption +
SysUtils.IntToHex(Byte(Edit1.Text[i]),4);
// RegisterDeviceNotificatio
except
Beep;
end;
end;
end;
كد زير يك رشته را به هگز تبديل ميكنه
چطور ميتوان كد را دوباره به متن اوليه تبديل كرد
procedure TForm6.Button1Click(Sender: TObject);
var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption :=
Label1.Caption +
SysUtils.IntToHex(Byte(Edit1.Text[i]),4);
// RegisterDeviceNotificatio
except
Beep;
end;
end;
end;