Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-91537
alexey_ent
2003-04-10 17:44
2003.04.28
Подскажите литературу новичку.


1-91301
darkkonung
2003-04-17 13:48
2003.04.28
FastReport и .pdf


14-91506
Mike Kouzmine
2003-04-10 11:45
2003.04.28
Можно ли по документу определить принтер


7-91576
blabla
2003-03-10 08:26
2003.04.28
system


4-91588
aga
2003-02-28 18:29
2003.04.28
ListView_FindItem