Создать область для ввода текста

@InfoMister · Регистрация: 12.08.2011

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

Здравствуйте! У меня (PascalABC.NET) вопро по поводу, как можно создать область для ввода текста?
Если при помощи операторов writeln(''); readln(str); , то как это поле для ввода текста расширить, сжать, переместить (например чтоб было по середине экрана программы)?

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses graphabc;
  var
  str:string;
begin
  window.IsFixedSize := true;
  window.Load('peg.jpg');
//Область для ввода текста
 writeln;
 readln(str);
//******************
end.

И еще, как можно увеличит диапазон ввода у дипа данных string(стандартно 255 символов, а нужно 2000 или хотябы 1000); если есть какойто другой тип данных прошу скажите!!!

@Puporev · 14.08.2011, 12:17

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

если есть какойто другой тип данных

Есть, массив символов
var s:array[1..2000] of char;

Добавлено через 1 минуту

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

Если при помощи операторов writeln(''); readln(str);

В графическом режиме только textout(x,y,s);

@InfoMister · 14.08.2011, 12:32 **[ТС]**

Но textout выводит, а мне нужен ввод, чтобы пользователь сам вводил текс в определенную облать на экране , а не в низу окна!

@Puporev · 14.08.2011, 12:34

В графическом режиме это невозможно.

@InfoMister · 14.08.2011, 12:39 **[ТС]**

Ладно! Спасибо, хоть знаю теперь!

Добавлено через 2 минуты
А можно как нибуть перевести тип char в string?

@Puporev · 14.08.2011, 12:45

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

А можно как нибуть перевести тип char в string?

А зачем? Если тебе нужно ввести более 255 символов, то строка не нужна, а если нужна строка, то вводи меньше 256 символов. Вообще-то строка и есть массив символов, чего еще переводить?

Добавлено через 1 минуту
И вообще, с Вашими знаниями, лучше изложить задачу полностью, а не выдумывать по кусочкам, у нас же не форум экстрасенсов.

@Влад.pas · 30.08.2011, 19:06

Незнаю, это ли тебе надо или нет, но так ты сделаешь окно с листом для ввода:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses vcl;
var
text:textbox;
mainform:form;
Begin
mainform:=form.create;
text:=textbox.create;
end.
 
А если нужна строка, то:
 
uses vcl;
var
mform:form;
edit1:edit;
Begin
mform:=form.create;
edit1:=edit.create;
end.

(только у строки можно только длину изменять)

@Puporev · 30.08.2011, 19:11

В PascalABC.NET это работать не будет.

@vse · 04.01.2012, 09:30

Немного расширю тему, раз на нее вынесло.
Задача - отредактировать данные из текстового файла. (строка содержит поля, разделяемые знаком табуляции, редактировать надо каждое поле по отдельности)
Ограничение - модуль crt.
Какие будут мысли?

@Puporev · 04.01.2012, 10:14

Комментарий модератора

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

Немного расширю тему, раз на нее вынесло.

А если бы тебя в море вынесло, ты и его бы начал расширять?
Для вопроса нужно создавать новую тему, в которой нужно точно изложить суть проблемы, а не так делать ибо Вы мешаете тем кто обсуждает конкретный вопрос и все равно никто не поймет что Вам нужно. Кроме того это просто нарушение правил, которое может повлечь неприятные последствия.

@supro · 14.01.2016, 18:49

Ну я в своей программе где мне это было нужно использовал пробелы и writeln перед этим

Pascal
1
2
3
4
5
6
Uses graphabc;
begin
writeln(' ');
writeln(' ');
writeln('                Это пример))) проверь');
end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@InfoMister 25 / 14 / 3 Регистрация: 12.08.2011 Сообщений: 276
	14.08.2011, 12:32 [ТС]
	Но textout выводит, а мне нужен ввод, чтобы пользователь сам вводил текс в определенную облать на экране , а не в низу окна! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.08.2011, 12:34
	В графическом режиме это невозможно. 1

@InfoMister 25 / 14 / 3 Регистрация: 12.08.2011 Сообщений: 276
	14.08.2011, 12:39 [ТС]
	Ладно! Спасибо, хоть знаю теперь! Добавлено через 2 минуты А можно как нибуть перевести тип char в string? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	30.08.2011, 19:11
	В PascalABC.NET это работать не будет. 1

@vse 0 / 0 / 2 Регистрация: 04.01.2012 Сообщений: 8
	04.01.2012, 09:30
	Немного расширю тему, раз на нее вынесло. Задача - отредактировать данные из текстового файла. (строка содержит поля, разделяемые знаком табуляции, редактировать надо каждое поле по отдельности) Ограничение - модуль crt. Какие будут мысли? 0