Текстовый файл шестнадцатиричных чисел

[Serge_Bliznykov]

VIK_aka_TOR, не очень. Идея нормальная, а вот с реализацией - не очень.
Ваш CASE ошибочный (вы 4-ку забыли и нет ветки else).
Корректный постом выше привёл min@y™

[VIK_aka_TOR]

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

VIK_aka_TOR, не очень. Идея нормальная, а вот с реализацией - не очень.
Ваш CASE ошибочный (вы 4-ку забыли и нет ветки else).
Корректный постом выше привёл min@y™

очепятался с 4, а на else можно и raise кидать, что бы не совали из других СС символы, или и вправду не воспринимать и кидать в result 0 как выше.

[Алексей_2012]

procedure TForm1.FormCreate(Sender: TObject);
var
  ts: TStringList;
  cnt, i: Word;
  s1: string;
  s: char;
begin
  ts := TStringList.Create;
  ts.clear;
  ts.LoadFromFile('16.txt');
  cnt := 0;
  s1 := ts[0];
  for i := 1 to Length(s1) do
  begin

    s := Char(s1[i]);

    case s of

      '1', '2', '4', '8': cnt :=cnt+ 1;
      '3', '5', '6', '9', 'a', 'c': cnt :=cnt+ 2;
      '7', 'b', 'd', 'e': cnt := cnt+3;
      'f': cnt :=cnt+ 4;
    else cnt :=cnt+ 0;
    end;


  end;
  ShowMessage(IntToStr(cnt));
  ts.free;
end;

Ребят, для моего файла ответ будет 39827?

[min@y™]

Ребят, для моего файла ответ будет 39827?

10000 байт = 80000 бит.
В пределах. 49,784% единичных бит, примерно половина.

З.Ы. В коде много лишнего. Можно укоротить и ускорить в разы.

[Алексей_2012]

Символов 20002, length(ts.text), в коде возможно и много лишнего, но важно именно количество двоичных единиц

[min@y™]

Символов 20002, length(ts.text)

это после загрузки в stringlist. до загрузки их там ровно 20000, поверь дяде на слово.
каждый символ – полубайт данных (по условию задачи), т.е. 2 символа на байт.

[Алексей_2012]

Вот вам и верю, потому и спросил: правильно ли программа посчитала количество единичек?

[min@y™]

Сообщение от Алексей_2012

Вот вам и верю, потому и спросил: правильно ли программа посчитала количество единичек?

Ты хочешь, чтобы я пересчитал?
Завтра утром напомни, я прогу напишу. А то щас я уже под одеялом, спать готовлюсь.

[Алексей_2012]

да, буду очень благодарен

[min@y™]

У меня вот так посчитало: