Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
yuppi
11 / 3 / 1
Регистрация: 22.01.2012
Сообщений: 292
1

Генерирование символьного файла

24.04.2014, 22:20. Просмотров 279. Ответов 4
Метки нет (Все метки)

Подскажите, пожалуйста, как осуществить генерирование файла символов (file of char)? Файл целых чисел с помощью процедуры Randome я умею получать. А тут не знаю.

Добавлено через 18 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a : Char;
  t : File of Char;
  j: Integer;
begin
  AssignFile(t, 'Test.dat');
  Rewrite(t);
  for j := 1 to 1000 do
    begin
      a := Chr(Random(32));
      Write(t, a);
    end;
  CloseFile(t);
end;
Файл вроде генерирует. Работает. Только по заданию мне надо, чтобы в этом файле присутствовали местами пробелы. Как мне это задать? Я читала, что у него код ASCCI - 32.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 22:20
Ответы с готовыми решениями:

создание типизированного символьного файла
Здравствуйте,помогите пожалуйста с программой.Создать типизированный символьный...

Заполнить символами названного файла очередь элементов символьного типа и подсчитать количество слов, которое она при этом будет содержать
Текстовый файл Inlet.in содержит произвольный набор букв латиницы и пробелы....

Генерирование эллементов массива!
Доброго дня суток! Есть вопросик! Необходимо сгенерировать эллементы массива...

Генерирование кол-ва товара в 2 таблицах
Всем привет. Не знал как толком сформулировать вопрос. Суть такова. Есть...

Рандомное генерирование слов и цифр
Как можно реализовать , чтобы при клике на кнопку выводилось в edit значение...

4
northener
пофигист широкого профиля
3423 / 2323 / 630
Регистрация: 15.07.2013
Сообщений: 13,748
24.04.2014, 22:22 2
Цитата Сообщение от yuppi Посмотреть сообщение
a := Chr(Random(32));
А что в файле должны быть только непечатные "символы"?
0
yuppi
11 / 3 / 1
Регистрация: 22.01.2012
Сообщений: 292
24.04.2014, 22:25  [ТС] 3
Я так написала, потому что 32 - это код пробела. Но программа его не генерирует.
0
northener
пофигист широкого профиля
3423 / 2323 / 630
Регистрация: 15.07.2013
Сообщений: 13,748
24.04.2014, 23:51 4
Цитата Сообщение от yuppi Посмотреть сообщение
Но программа его не генерирует
Угу.
Random returns a random number within the range 0 <= X < Range
Т.е. в данном случае в файле будут "символы" с кодами от 0 до 31.
0
Cyborg Drone
Модератор
5296 / 3174 / 2442
Регистрация: 17.08.2012
Сообщений: 10,189
25.04.2014, 04:45 5
Delphi
1
a := Chr(Random(95) + 32);
0
25.04.2014, 04:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2014, 04:45

Генерирование случайных чисел без Random
Пишу программу для зашифровки текста, для сдвига символа на определённое...

сортировка символьного массива
дан одномерный массив случайным образом выбраных 10 прописных букв первой...

Команды для перевода из символьного типа в числовой
Как сделать в делфи 2007 перевод из символьных данных в числовые, что-бы делать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru