Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Если в строке есть символ, то

Страницы: 1 2 3 >
And7 © (2011-05-30 16:35:00)
Как в Мemo1 (тип String) узнать есть ли там символ '='(тип Сhar) .Если такой символ есть, то выполняется определённая команда.Это приблизительный, но не правельный код.Подскажите пожалуйста как можно это сделать.

//защита от повторного нажатия =
if Memo1.Text='=' then begin // Если в Memo1 есть символ =, то

Anatoly Podgoretsky (2011-06-03 07:30:00) [1]
> And7 (03.06.2011 01:05:41) [41]

Не пиши и мы не будем.

Германн (2011-06-03 02:10:00) [2]

> And7 © (03.06.11 01:05) [41]
>
> Я понял. Уже исправил.Считаю тему эту можно закрыть, так
> как для себя урок я хороший извлёк.

Ты не единственный учащийся. Так что тему закрывать ни в коем случае нельзя!

And7 (2011-06-03 01:05:00) [3]
Я понял. Уже исправил.Считаю тему эту можно закрыть, так как для себя урок я хороший извлёк. Спасибо.Желаю удачи.

Dennis I. Komarov (2011-06-02 10:19:00) [4]

> And7 © (01.06.11 22:28) [34]
> Я так сделал и работает

Тебе хирург вилкой аппендицит выковырит, а потом аналогично заявит...

Anatoly Podgoretsky (2011-06-02 07:25:00) [5]
> And7 (01.06.2011 23:21:37) [37]

Признайся ты работать не хочешь?

Anatoly Podgoretsky (2011-06-02 07:24:00) [6]
> sniknik (01.06.2011 23:15:36) [36]

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

And7 (2011-06-01 23:21:00) [7]
Вернее от 0 до 9, если в Edit4 нет текста

procedure TForm1.Button10Click(Sender: TObject); // когда щёлкаем по цифре 0 то:
begin {коментарий 1}
if Edit4.Text <>''then begin chisto;

То могу вводить сколько угодно символов.

sniknik (2011-06-01 23:15:00) [8]
> А ты подумай зачем нужна кнопка очистить
где кнопка? какая кнопка? откуда она взялась, если была только строка и символ в ней...
ты тут с [32] уже на тему ядерного чемоданчика свернул? но мы тут без тебя не в курсе, т.что оперируй только тем, что нам "раскрываешь", ну или раскрывай все, не скупись.

> И больше одного символа ты уже не введешь.
вот вот, а был бы признак то очищался бы он, вместе с текстом, если "взведен", и ничего не очищалось бы если "сброшен". и вводи сколько влезет.

Anatoly Podgoretsky (2011-06-01 23:02:00) [9]
> And7 (01.06.2011 22:26:33) [33]

И больше одного символа ты уже не введешь.

And7 (2011-06-01 22:28:00) [10]
Я так сделал и работает

And7 (2011-06-01 22:26:00) [11]
Или вообще не нажимать. А при следующем вычислении при нажатии любой из клавиш от 0 до 9 если в Memo1 есть текст то он очищается.

And7 (2011-06-01 22:22:00) [12]
sniknik
т.е. ты туда сам же равно и вставляешь? а после типа не знаешь вставлено оно или нет. да, дела...
А ты подумай зачем нужна кнопка очистить, если можно просто второй раз нажать на =

sniknik (2011-06-01 09:43:00) [13]
хотя...
Palladin © (30.05.11 16:39) [1]
> pos + F1
And7 © (30.05.11 17:02) [2]
> Сложновато.
нормально все, ничего не трогай пока не сдашь...

sniknik (2011-06-01 09:40:00) [14]
> В Memo1.Text отображается вычисление и результат этого вычисления
> Memo1.Text:= Memo1.Text+ '='+ Edit4.Text;
т.е. ты туда сам же равно и вставляешь? а после типа не знаешь вставлено оно или нет. да, дела...

> Только вот ни фига не понятно зачем тут Мемо?

Dennis I. Komarov (2011-06-01 09:24:00) [15]
ИМХО, сказка про X, Y, Z

And7 (2011-06-01 01:25:00) [16]
В Memo1.Text отображается вычисление и результат этого вычисления
Memo1.Text:= Memo1.Text+ '='+ Edit4.Text;

Германн (2011-06-01 01:16:00) [17]

> And7 © (01.06.11 01:08) [25]
>
> procedure TForm1.Button15Click(Sender: TObject); //
> когда щёлкаем по кнопке = то
> begin
> if Pos('=', Memo1.Text)>0 //Проверяется
> условие (Если в Memo1.Text есть знак '=' то
> then chisto;
> //включается процедура очищения).
>
> //Далее
>

Методом тыка решение найдено. Ура!
Только вот ни фига не понятно зачем тут Мемо?

And7 (2011-06-01 01:09:00) [18]
Спасибо всем за подсказки.

And7 (2011-06-01 01:08:00) [19]
procedure TForm1.Button15Click(Sender: TObject); // когда щёлкаем по кнопке = то
begin
if Pos('=', Memo1.Text)>0 //Проверяется условие (Если в Memo1.Text есть знак '=' то
then chisto; //включается процедура очищения).
//Далее

Anatoly Podgoretsky (2011-05-31 11:51:00) [20]
> QAZ (31.05.2011 11:30:22) [22]

И что это меняет, или ты думаешь, что с начальным церковно приходским
образованием, человек не в состояние выбрать?

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »