IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Аифметика, выражение вводится строкой
*alt
сообщение 25.09.2008 11:10
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской

Репутация: -  0  +


Задача (дословно)
В строке вводиться арифметическое выражение, состоящее из целых чисел и знаков "+" и "-" . Вычислить значение этого выражения.
Требования:: во время ввода или модификации выражения нажатия на клавиши должны быть ограничены (если последней введена цифра, то за ней может быть нажата цифра, знак или пробел; если последним введеным символом явдяется знак, то за ним может быть введены либо пробел, либо цифра; для пробела определить ограничения самостоятельно).

как это реализовывается?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 19.10.2008 12:55
Сообщение #2


Гость






Цитата
Нужно вводить строку обрабатывать при вводе
Обрабатывай:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Edit1.Text <> '') then
case Edit1.Text[Length(Edit1.Text)] of
'+', '-':
begin
if not (Key in ['0'..'9', ' ',#8]) then Key := #0;
end;
'0' .. '9':
begin
if not (Key in ['0'..'9', '+','-',' ',#8]) then Key := #0;
end;
end;
end;

(для пробела добавишь свои правила)... Как закончишь вводить выражение - начнешь вычислять... Где искать тебе уже написали.
 К началу страницы 
+ Ответить 
*alt
сообщение 20.10.2008 21:38
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской

Репутация: -  0  +


а можно как-нибудь обрисовать структуру проекта?
алгоритм
шаги
просто пока не понимаю, что, куда и как(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 5:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"