Как записать 256 ASCII символов?

[Alex Cones]

Появилась необходимость закодировать нечто. Этому нечто требуется 256 символов кодировки. ASCII содержит 256 символов, но первые 31 - служебные. Есть ли их аналог для записи в файл? Т.е. В файл мне нужно записать 256 различных символов. Вопрос - как?

[BOBAH13]

Символ = байт (в ASCII). Значит пишите байты, т.е. по сути таблицу символов в 256 байт в файл. В чем проблема ?
Или дело в том, что вам надо еще кучу букв и символов выдумать ? Просто не много не ясна задача

[BaronTreep]

Так и писать:

for i := 1 to 255 do S := S + chr(i);
f.Write(...)

символы хоть не отображаются по разному, в файле будут разные коды.

[Alex Cones]

BaronTreep, да пробовал так уже! На 23 или 22 символе кидается на меня, стремится пальцы отрезать!
EAccessViolation.
BOBAH13, а поподробней?

[BOBAH13]

var
  c: array[0..255] of char;
  f: File;
  i: Integer;
begin
  {$I-}
    AssignFile(f, 'chars');
    ReWrite(f, 1);

    // fill in the array
    for i:= 0 to 255 do
      c[i] := chr(i);

    // put our array into the file
    // SizeOf(c) = 256 bytes
    BlockWrite(f, c, SizeOf(c));

    CloseFile(f);
  {$I+}
end;

Что-то вроде этого.

[Alex Cones]

Все равно при считывании появляются ошибки, скорее всего из-за #10,#13,#26

[BOBAH13]

Сообщение от Alex Cones

Все равно при считывании появляются ошибки, скорее всего из-за #10,#13,#26

Не вижу как считываите, и что еще за ошибки ? Пора уже понять, и привыкнуть, что надо все конкретизировать, показывать и т.п.

[0nni]

TStringStream попробуй освоить.

[Impuls1989]

Сообщение от Alex Cones

Все равно при считывании появляются ошибки, скорее всего из-за #10,#13,#26

Из за этих символов не должно ничего происходить. #10#13 - Переход на новую строку, он так и в файле будет выглядеть. А вот #26 - это конец файла. Пробуйте писать его последним, или не писать вообще (он и так там будет)))

[Serge_Bliznykov]

Impuls1989 - ну не пишите, пожалуйста, то, в чём Вы не разбираетесь! По Вашему в файл байт с кодом 26 записать нельзя!!!? Это справедливо ТОЛЬКО для текстовых файлов! бинарный файл подобному маразму не подвержен и не может быть подвержен!!

Alex Cones, измените файл f:Text; на f:file (или f:file of byte; и всё у Вас получится!
Либо воспользуйтесь хорошим советом 0nni - и воспользуйтесь TFileStream