Ограничение на 255 символов строки , Есть ли обход???

[Kluben]

Добрый день.
Интересует вопрос, есть ли способ ввести текст, в качестве параметра, содержащий более 255 символов.
Например, программа запрашивает "Введите текст:", а пользователь печатает текст длины большей 255.
Затем readln(Txt);
где, type SymArr = array[0..5000] of Char;
var Txt:SymArr;
Заранее спасибо!

[KiRiK]

Попробуй использовать тип pChar.
Немного о нем есть здесь и еще в help'е.

[Kluben]

Вернее позволяет набрать не 255 а 126 символов. Про PChar я знаю.
Из файла читать нельзя(условию задачи не соответствует)
Спасибо за активность!

[Maks1986]

KiRiK, вроде как Read/Write не работают с pChar или я не прав?

[Kluben]

Работает...

[Maks1986]

Kluben, можешь попробовать читать посимвольно...

[Kluben]

Проблема в том что буфер клавы больше 127 символов не пускает. Надо по ходу делать так. как только буфер заполнился опустошать его, при этом присваивая переменной введенный текст. Затем если пользователь желает снова заполнять буфер. Вот опять родился вопрос! Как опустошать буфер, сохраняя не экране набранное.

[Romtek]

uses strings;
var
  a: array[0..2000] of char;
begin
     repeat
           readln (a);
           writeln (a);
     until strcomp (a, '') = 0;
end.

Я сильно сомневаюсь, что пользователь будет вводить текст без единого нажатия Ввода.

Добавлено 12.06.06, 12:17

Цитата Kluben @ 12.06.06, 12:14

Как опустошать буфер, сохраняя не экране набранное.

Буфер клавы никак не влияет на содержимое экрана.
Очищать буфер можно так: while keypressed do;

[Kluben]

Мужики, Большое спасибо!

Добавлено 12.06.06, 12:51
Ну...Вообще то это не решение. Цикл бесконечен.

[Maks1986]

Цитата Kluben @ 12.06.06, 12:20

Цикл бесконечен.

Kluben, энтр нажми

[Kluben]

Maks1986 прочитай мое предыдущее сообщение.

[hot_ice]

Kluben может это?

uses crt;
const size=2000;
var a:array[0..size] of char;
    key:char;
    count:integer;
begin
clrscr;
  repeat
    key:=readkey;
    if key<>#0 then
       begin
         a[count]:=key;inc(count);
         write(key);
       end else readkey;
  until (key=#13)or(count>=size);
writeln;
writeln;
writeln('Input:',a);
end.

Как и Romtek я не вижу практического смысла в этой проге

[e-moe]

Цитата Romtek @ 12.06.06, 12:16

Очищать буфер можно так: while keypressed do;

хм... а разве не так

while keypressed do
  readkey;

?

[Romtek]

Цитата e-moe @ 12.06.06, 17:30

хм... а разве не так

while keypressed do
  readkey;

?

Да, readkey я пропустил...