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

← →
And7 © (2011-05-30 16:35) [0]

Как в Мemo1 (тип String) узнать есть ли там символ "="(тип Сhar) .Если такой символ есть, то выполняется определённая команда.Это приблизительный, но не правельный код.Подскажите пожалуйста как можно это сделать.

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

← →
Palladin © (2011-05-30 16:39) [1]

pos + F1

← →
And7 © (2011-05-30 17:02) [2]

Сложновато.

← →
And7 © (2011-05-30 17:03) [3]

И пока не понятно

← →
Плохиш © (2011-05-30 17:07) [4]

> And7 © (30.05.11 17:02) [2]
> Сложновато.
>
>

Забей, есть полно более интересных занятий.

← →
And7 © (2011-05-30 17:12) [5]

Это тоже очень интересное занятие.

← →
And7 © (2011-05-30 17:18) [6]

В справке всё на английском. Потому и сложновато.

← →
clickmaker © (2011-05-30 17:20) [7]

> В справке всё на английском. Потому и сложновато

да там английский-то примитивный. На уровне "фэйсом об тэйбл". Это же не Шекспира в подлиннике читать

← →
Плохиш © (2011-05-30 17:21) [8]

> В справке всё на английском.

Хочешь справку на неанглийском?

← →
clickmaker © (2011-05-30 17:22) [9]

http://www.translate.ru/Default.aspx/Text
http://radugaslov.ru/promt.htm

← →
Игорь Шевченко © (2011-05-30 17:34) [10]

> В справке всё на английском. Потому и сложновато.

Найми переводчика, в чем проблема ?

← →
Dennis I. Komarov © (2011-05-30 17:56) [11]

> Найми переводчика, в чем проблема ?

Перевод денег зря...

← →
Jeer © (2011-05-30 18:23) [12]

Так ему еще надо понять с какого на какой переводить надо.

← →
And7 © (2011-05-30 18:53) [13]

Думаю
PChar(Memo1.Text) преобразовывает с строчного на символьный тип
StrScan- ищет символ в строке
И что дальше ?

← →
clickmaker © (2011-05-30 19:00) [14]

> преобразовывает с строчного на символьный тип

а в чем разница?

← →
Плохиш © (2011-05-30 19:34) [15]

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

← →
Anatoly Podgoretsky © (2011-05-30 19:43) [16]

> Dennis I. Komarov (30.05.2011 17:56:11) [11]

Денег не хватит, из расчета 1 кб-15 баксов.

← →
MBo © (2011-05-30 20:52) [17]

>Думаю PChar(Memo1.Text) преобразовывает с строчного на символьный тип

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

← →
Anatoly Podgoretsky © (2011-05-31 07:35) [18]

> MBo (30.05.2011 20:52:17) [17]

Это калька с английского, а не какое то тайное знание. pCHAR + string

← →
Dennis I. Komarov © (2011-05-31 09:19) [19]

PChar то откуда взялось? Лишь бы прилепить чего-нить, а вдруг заработает...

← →
Palladin © (2011-05-31 10:20) [20]

функцию pos школьники изучают в 10 классе

← →
KSergey © (2011-05-31 10:53) [21]

> if Memo1.Text="=" then begin // Если в Memo1 есть символ =, то

if Pos(Memo1.Text, "=") > 0 then begin // Если в Memo1 есть символ =, то

Но, в этом примере есть ошибка.
Читай тут http://www.delphibasics.ru/Pos.php и исправляй

← →
QAZ (2011-05-31 11:30) [22]

> Плохиш © (30.05.11 19:34) [15]

+100500
может при регистрации на форуме вышка по умолчанию стоит?

← →
Ega23 © (2011-05-31 11:37) [23]

> KSergey © (31.05.11 10:53) [21]

А ты жесток. Я с месяца два назад было дело чуть башку себе не сломал, пока не увидел, что местами параметры перепутал.

← →
Anatoly Podgoretsky © (2011-05-31 11:51) [24]

> QAZ (31.05.2011 11:30:22) [22]

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

← →
And7 © (2011-06-01 01:08) [25]

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

← →
And7 © (2011-06-01 01:09) [26]

Спасибо всем за подсказки.

← →
Германн © (2011-06-01 01:16) [27]

> 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:25) [28]

В Memo1.Text отображается вычисление и результат этого вычисления
Memo1.Text:= Memo1.Text+ "="+ Edit4.Text;

ИМХО, сказка про X, Y, Z

> В Memo1.Text отображается вычисление и результат этого вычисления
> Memo1.Text:= Memo1.Text+ "="+ Edit4.Text;
т.е. ты туда сам же равно и вставляешь? а после типа не знаешь вставлено оно или нет. да, дела...

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

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

sniknik
т.е. ты туда сам же равно и вставляешь? а после типа не знаешь вставлено оно или нет. да, дела...
А ты подумай зачем нужна кнопка очистить, если можно просто второй раз нажать на =

Или вообще не нажимать. А при следующем вычислении при нажатии любой из клавиш от 0 до 9 если в Memo1 есть текст то он очищается.

Я так сделал и работает

> And7 (01.06.2011 22:26:33) [33]

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

> А ты подумай зачем нужна кнопка очистить
где кнопка? какая кнопка? откуда она взялась, если была только строка и символ в ней...
ты тут с [32] уже на тему ядерного чемоданчика свернул? но мы тут без тебя не в курсе, т.что оперируй только тем, что нам "раскрываешь", ну или раскрывай все, не скупись.

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

Вернее от 0 до 9, если в Edit4 нет текста

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

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

> sniknik (01.06.2011 23:15:36) [36]

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

> And7 (01.06.2011 23:21:37) [37]

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

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

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

Если в строке есть символ, то Найти похожие ветки