18.09.2010, 20:57
|
|
Начинающий
|
|
Регистрация: 02.05.2009
Адрес: Башкортостан, г.Благовещенск
Сообщения: 142
Версия Delphi: XE
Репутация: 13
|
|
Код:
function StrToHex(source: String): String;
var i:integer;
c:Char;
s:String;
begin
s := '';
for i:=1 to Length(source) do
begin
c := source[i];
s := s + IntToHex(Integer(c),2)+' ';
end;
result := s;
end;
|