HexToStr
, '4D 5A' в 'MZ'
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [18.226.34.107] |
|
|
HexToStr
, '4D 5A' в 'MZ'
|
Сообщ.
#1
,
|
|
  |
  procedure TForm1.Button1Click(Sender: TObject); Const Source: String = '4D 5A'; Var S: String; t: Integer; begin With TStringList.Create Do try Text:=StringReplace(Source,#32,#13#10,[rfReplaceAll]); S:=''; For t:=0 to Count-1 Do S:=S+Chr(StrToInt('$'+Strings[t])); ShowMessage(S); finally Free; end; end; Автор: Song |
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0189 ] [ 16 queries used ] [ Generated: 28.04.24, 11:34 GMT ]