[movnet]

Подскажите как строку например : string := '1234' конвертировать в HEX чтоб получилось два байта : $12, $34 или четыре '12345678' : $12, $34, $56, $78. и.д.

[NekitoSSSS]

Код:

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;