Текущий архив: 2003.04.28;
Скачать: CL | DM;

Вниз

Двоичный -->   Найти похожие ветки 

← →
Dmitry V. Averuanov   (2003-04-16 11:18) [0]

Есть string = "1100110011..." длина - 37 символов
Допустимые символы внутри - 0 или 1
Нужно каждую восьмерку символов преобразовать к десятичному.

---

← →
Shirson ©   (2003-04-16 11:25) [1]

BinToHex

---

← →
Skier ©   (2003-04-16 11:33) [2]

Примерно так :


procedure TForm1.Button1Click(Sender: TObject);

function BinStrToInt(const AStr : String) : Integer;
var
ii : Integer;
begin
Result := 0;
if AStr <> EmptyStr then begin
for ii := 1 to Length(AStr) do begin
if AStr[ii] = "1" then Result := (Result shl 1) or 1
else if AStr[ii] = "0" then Result := Result shl 1
else begin
ShowMessage("Invalid symbol !");
end; //else
end; //for
end //if
else begin
ShowMessage("Invalid input string !");
end; //else
end; //BinStrToInt

begin
WriteLn(BinStrToInt("11001100"));
end;


---

← →
Anatoly Podgoretsky ©   (2003-04-16 15:45) [3]

Обратить внимание на 37 символов, Integer не годится

---

← →
AlexSV ©   (2003-04-16 15:52) [4]

> Anatoly Podgoretsky ©

Годится, поскольку ... каждую восьмерку ...

---

← →
Sheriff   (2003-04-16 16:36) [5]

и сколько восьмерок в 37 символах? :)

---

← →
evvcom ©   (2003-04-16 16:39) [6]

4 полных и 1 неполная. Надо знать, что вопрошающему нужно в этом случае? Может достаточно добавить слева до 40 символов нулями исходный стринг.

---

← →
Skier ©   (2003-04-16 16:39) [7]

>Sheriff

> и сколько восьмерок в 37 символах? :)

ровно - 4,625 :)

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c