ch:char; st:string; k:byte;
---
for k:=1 to 10 begin
read(ch);st:=st+ch;
end;
Изменение максимальной длины ввода( Delphi )
Уважаемые программеры!!!
Проблема вот в чем: пишу прогу на Delphi (консольное приложение).
Использую процедуру readln Для ввода строки. Поумолчанию максимально я могу ввести 225 символов. Как мне изменить эту длину ввода чтобы например я мог максимум ввести скажем 100 символов.
Проблема вот в чем: пишу прогу на Delphi (консольное приложение).
Использую процедуру readln Для ввода строки. Поумолчанию максимально я могу ввести 225 символов. Как мне изменить эту длину ввода чтобы например я мог максимум ввести скажем 100 символов.
Вообще-то не 225 а 255.
А как ввести 100 символов?
Можно попробовать обявить String( не AnsiString) переменную с параметром 100.
Пример программы:
var st: string[100];
А как ввести 100 символов?
Можно попробовать обявить String( не AnsiString) переменную с параметром 100.
Пример программы:
var st: string[100];
Цитата:
Вообще-то не 225 а 255.
Ну извини опечаталься, с кем не бывает.
Цитата:
А как ввести 100 символов?
Можно попробовать обявить String( не AnsiString) переменную с параметром 100.
Пример программы:
var st: string[100];
Я так и объявлял.
Может конечно если я введу после этого 200 символов 100 обрежется:rolleyes: Не могу утверждать. Но мне надо чтобы после ввода 100 символов при попытке ввода еще одного ничего на экран не выводилось и выдавался например сигнал (но это не обязательно) как это можно сделать в ассемблере. Но я то осуществляю ввод на Паскале;)
Функция readkey и sound тебе в помощь.
После sound, не забудь использовать nosound.
Нужен модуль CRT.
readkey:
читает символ c клавиатуры, на экран ничего не выводится.
sound(number):
выводит в динамик команду, которая проигрывает звук с частотой number.
nosound:
прекращает звук.
После sound, не забудь использовать nosound.
Нужен модуль CRT.
readkey:
читает символ c клавиатуры, на экран ничего не выводится.
sound(number):
выводит в динамик команду, которая проигрывает звук с частотой number.
nosound:
прекращает звук.
Цитата: Tingo
Функция readkey и sound тебе в помощь.
После sound, не забудь использовать nosound.
Нужен модуль CRT.
readkey:
читает символ c клавиатуры, на экран ничего не выводится.
sound(number):
выводит в динамик команду, которая проигрывает звук с частотой number.
nosound:
прекращает звук.
После sound, не забудь использовать nosound.
Нужен модуль CRT.
readkey:
читает символ c клавиатуры, на экран ничего не выводится.
sound(number):
выводит в динамик команду, которая проигрывает звук с частотой number.
nosound:
прекращает звук.
поздравляю!
в Delphi всего этого НЕТ!
Цитата: ahilles
поздравляю!
в Delphi всего этого НЕТ!
в Delphi всего этого НЕТ!
ну это как посмотреть :) http://www.swissdelphicenter.ch/torry/printcode.php?id=1941
уж не знаю рабочий или нет - не пробовал, но это автору в руки, если конечно вариант предложенный Tingo и впрямь рабочий(тоже не пробовал :))
На Дельфи, *смущенно* как таковом не работал.
Я бывший "Паскалист", и там пользовался таким способом.
Главное было подгрузить модуль CRT (uses CRT);
Есть код CRT на ASM'e, а также CRT.TPU. Они могут помочь?
Я бывший "Паскалист", и там пользовался таким способом.
Главное было подгрузить модуль CRT (uses CRT);
Есть код CRT на ASM'e, а также CRT.TPU. Они могут помочь?
Ооо... посмотрел ссылку от kosfiz.
Велииикая вещь, хоть и извратились по максимуму.
Добавил в закладки : )
Велииикая вещь, хоть и извратились по максимуму.
Добавил в закладки : )
Честно говоря поставленную мной задачу я так и решал раньше (с помощью readkey и sound). И модуль CRT32 предложенный kosfiz у меня был давно. Я просто хотел узнать может задачу можно решить как - то проще. Но в любом случае спасибо!!! Тему можно закрывать.
Пожалуйста.
кстати... запоздалая идея:
читаем в цикле char и добавляем в string)
хотя врядли это уже нужно...
читаем в цикле char и добавляем в string)
Код:
хотя врядли это уже нужно...