[poli-smen]

Сообщение от mobac

А как сделать так, чтоб если у нас есть, допустим AAAAAAAAAEAA (склеенные , без пробелов), и чтоб они преобразовались в 00 00 00 100 (здесь я сам пробелы уберу)?

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  s1, s2: String;
  p: Integer;
  k: LongWord;
begin
  s1 := Edit2.Text;
  p := 1;
  while p <= Length(s1) do
  begin
    if TryBaseXToUInt(Copy(s1, p, 3), 'ABCDEFGO', k) then
    begin
      s2 := s2 + ' ' + IntToHex(k, 2);
    end;
    Inc(p, 3);
  end;
  Edit2.Text := Trim(s2);
end;