Ввод длинной строки с клавиатуры, Как ввести строку длиной 1100 символов с клавиатуры Опции

[Tan]

1. Забавное задание, в чём его смысл ?
2. Именно если ввести то просто посимвольно считываешь и потом можно скинуть в массив чаров и вывести.

[Tan]

sum:=0;
repeat
 ch:=readkey;
 inc (sum);
until (ord(ch) = 13) or (sum = 1100); {ENTER}

Ну условие цикла сам под задание подредактируй. А так по идее если ты работать будешь с каждым элементом в отдельности, то создай массив чаров ms : array [1..1100] of char и после чтения пиши туда свой символ. Очень интересно для решения какого задания ты используешь такую операцию, отпиши главное задание если не трудно. Возможно это не лучший метод.

Сообщение отредактировано: Tan - 11.04.2007 15:48

[Malice]

Можно приспособить вот такой вариант:

{$m 1024,0,65536}
uses dos;
begin
  exec(getenv('comspec'),' /c cmd /c copy con test.$$$');
end.

Все введенное будет записано в файл test.$$$. Окончание ввода- Ctrl+Z, Enter. За то в качестве бонуса текст может быть многострочным

[Гость]

Можно приспособить вот такой вариант:

{$m 1024,0,65536}
uses dos;
begin
  exec(getenv('comspec'),' /c cmd /c copy con test.$$$');
end.

Все введенное будет записано в файл test.$$$. Окончание ввода- Ctrl+Z, Enter. За то в качестве бонуса текст может быть многострочным

Спасибо!
Все равно вопрос остается открытым: как сделать без записи в файл?