Строка, имеющая длину больше 256 символов

@spanchbobqq · Регистрация: 08.09.2013

Студворк — интернет-сервис помощи студентам

Обьясните как вставлять поле memo в паскале а то текста больше заданного количества символом в паскале

@ildwine · 03.11.2013, 19:29

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

Обьясните как вставлять поле memo в паскале а то текста больше заданного количества символом в паскале

Поясните, вы вообще с каким диалектом паскаля работаете (Turbo Pascal, Pascal ABC, Pascal ABC.NET, Free Pascal...?), и что вы хотите сделать...

Новичок · 03.11.2013, 20:15

Не по теме:

Скорее всего ТС в Delphi работает,так как в PascalABC/PascalABC.NET вместо Memo и Eidt компонент TextBox.

@spanchbobqq · 04.11.2013, 12:39 **[ТС]**

Free paskal, нужно написать текст более максимальной длины

@volvo · 04.11.2013, 12:41

И какая это "максимальная длина"? Ограничение буфера клавиатуры в 256 символов? Или что имеется в виду?

@spanchbobqq · 05.11.2013, 10:16 **[ТС]**

больше 256 символов, не хочется writeln 2 раза писать а то придется подгонять

@ildwine · 05.11.2013, 11:32

А так не вариант?

Pascal
1
2
3
4
5
6
7
8
9
10
const
  s1 = 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod';
  s2 =' tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, ';
  s3 = 'quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. '; 
  s4 = 'Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu ';
  s5 = 'fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt ';
  s6 = 'in culpa qui officia deserunt mollit anim id est laborum.';
begin
  writeln(s1, s2, s3, s4, s5, s6);
end.

@volvo · 05.11.2013, 12:15

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

не хочется writeln 2 раза писать

А только для WriteLn не надо ничего разбивать:

Pascal
1
2
3
4
5
6
7
8
9
10
11
const
  s1 : ansistring =
    'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod' +
    'tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, ' +
    'quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. ' +
    'Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu ' +
    'fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt ' +
    'in culpa qui officia deserunt mollit anim id est laborum.';
begin
  writeln(s1);
end.

Вот если надо такую строку ввести - тогда будут проблемы с ReadLn, придется вводить посимвольно...

@Valenth · 05.11.2013, 12:15

Раз уж такая пьянка

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
    a: array[1..6] of string;
    i: byte;
begin
 
  a[1] := 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod';
  a[2] :=' tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, ';
  a[3] := 'quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. '; 
  a[4] := 'Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu ';
  a[5] := 'fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt ';
  a[6] := 'in culpa qui officia deserunt mollit anim id est laborum.';
  for i:=1 to 6 do
    writeln(a[i]);
end.

Тоже 1 writeln.

@volvo · 05.11.2013, 12:16

И зачем? Посты понабивать? Не один Writeln, а вызов Writeln в цикле, это нафиг никому не надо при использовании FPC и возможности в строке хранить до 2Гб... Да еще и ручное заполнение массива. Тьфу...

@Valenth · 05.11.2013, 12:27

UI, это был сарказм. Если ТС надо просто вывести на экран многотекста, то зачем выделять для этого лишнюю память под лишнюю переменную? Неужели такой вариант будет работать быстрее, чем 6 writeln для каждой строчки?

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и не для типовых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@spanchbobqq 0 / 0 / 0 Регистрация: 08.09.2013 Сообщений: 27

	Строка, имеющая длину больше 256 символов 03.11.2013, 16:52. Показов 4426. Ответов 10 Метки нет (Все метки) Обьясните как вставлять поле memo в паскале а то текста больше заданного количества символом в паскале 0

Новичок
	03.11.2013, 20:15
	Не по теме: Скорее всего ТС в Delphi работает,так как в PascalABC/PascalABC.NET вместо Memo и Eidt компонент TextBox. 0

@spanchbobqq 0 / 0 / 0 Регистрация: 08.09.2013 Сообщений: 27
	04.11.2013, 12:39 [ТС]
	Free paskal, нужно написать текст более максимальной длины 0

@volvo Супер-модератор 33407 / 21517 / 8236 Регистрация: 22.10.2011 Сообщений: 36,917 Записей в блоге: 12
	04.11.2013, 12:41
	И какая это "максимальная длина"? Ограничение буфера клавиатуры в 256 символов? Или что имеется в виду? 0

@spanchbobqq 0 / 0 / 0 Регистрация: 08.09.2013 Сообщений: 27
	05.11.2013, 10:16 [ТС]
	больше 256 символов, не хочется writeln 2 раза писать а то придется подгонять 0

@volvo Супер-модератор 33407 / 21517 / 8236 Регистрация: 22.10.2011 Сообщений: 36,917 Записей в блоге: 12
	05.11.2013, 12:16
	И зачем? Посты понабивать? Не один Writeln, а вызов Writeln в цикле, это нафиг никому не надо при использовании FPC и возможности в строке хранить до 2Гб... Да еще и ручное заполнение массива. Тьфу... 0

@Valenth 120 / 110 / 19 Регистрация: 04.11.2013 Сообщений: 471
	05.11.2013, 12:27
	UI, это был сарказм. Если ТС надо просто вывести на экран многотекста, то зачем выделять для этого лишнюю память под лишнюю переменную? Неужели такой вариант будет работать быстрее, чем 6 writeln для каждой строчки? 0