[poli-smen]

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

А как мне сделать, чтоб в edit1.text заменялись например AAA AAA AAA CAA склеенные в AAAAAAAAAEAA чтоб преобразовались они в 00000080 в edit2.text? Не получается..

Что не получается? Пробелы убрать что ли?

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
  s: String;
  k: LongWord;
begin
  s := StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]);
  if TryBaseXToUInt(s, 'ABCDEFGO', k)
    then Edit2.Text := IntToHex(k, 8)
    else Edit2.Text := 'Ошибка';
end;

p.s. А почему "AAA AAA AAA CAA" после склейки преобразуется в "AAAAAAAAAEAA"?