[poli-smen]

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

Спасибо! И последний вопрос, как сделать, что не сообщение показывалось, а чтоб в edit2.text было (если AAA AAA AAA EAA) то в edit2.text текст был бы 00 00 00 100 (hex)?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  i: Integer;
  Result: LongWord;
begin
  SL := TStringList.Create;
  try
    SL.Delimiter := #32;
    SL.DelimitedText := Edit2.Text;
    for i := 0 to SL.Count - 1 do
    begin
      TryBaseXToUInt(SL.Strings[i], 'ABCDEFGO', Result);
      SL.Strings[i] := IntToHex(Result, 2);
    end;
    Edit2.Text := SL.DelimitedText;
  finally
    SL.Free;
  end;
end;