Как преобразовать данные из текстового файла, в двоичный код

[StE111]

Я считал строки, из текстового файла в "TStringList". Как теперь преобразовать текст в двоичный код и сохранить в файл?

[Unique_Maks]

Например, преобразовать используя таблицу кодов ASCII и далее в двоичку

[StE111]

Можете поподробнее объяснить, пожалуйста. Вот есть у меня строки в объекте TStringList, как эти строки преобразовать в двоичные данные, и сохранить в файл?

[Человек_Борща]

Есть такая функция Ord. Вот ею в цикле перебираете сиволы, получаемое цисло в каждойитерации переводите в двоичную систему, витоге все предложение переводится в двоичный код.

[StE111]

Если в тексте есть числа, то они тоже обрабатываются как и символы, через функцию Ord???

[eval]

в тексте чисел нет, в нем только символы буковки слова и т.д.

[StE111]

Вопрос такой: В текстовом файле, встречаются числовые значения, их также через функцию Ord обрабатывать, что бы перевести в двоичный код??? Или Ord функция предназначена только для символов, и возвращает код символа. Целое число и символ это же разные вещи. Если да то передавать число в функцию Ord, не надо. А это число просто переводить в двоичный код. Это так??? Поправьте меня если не прав.

[phomm]

Любой символ перевести в его "числовое" представление (которое можон записать в переменную типа "целое") надо "прогнать" через Ord, в независимости от того, что в этот символ записано - '2' 'a' '.' Вам и говорят, что в тексте нет чисел вообще, есть символы, предназначенные для отображения чисел, это не непосредственно данные "целого" типа.

Что Вы вообще под двоичным кодом понимаете ? и как Вы себе представляете двоичный код записать в файл ? представить каждый бит исходного символа в виде
символа ('1' или '0' соответственно) ? Если так, то можно просто написать функцию, вроде такой:
function ByteToBinAsString(Inp: Byte): string;

var
  i: Byte;
begin
  SetLength(Result, 8);
  for i := 0 to 7 do
    Result[i+1] := IntToStr((Inp and (1 shl i)) shr i);
end;

И вызывать

var
  MyBinCharAsString: string;
  MyChar: Char;
...
  MyChar := // взять из файла
  MyBinCharAsString := ByteToBinAsString(Ord(MyChar));