Если в строке есть ~ то... - Общие вопросы Delphi

celovec · 28.03.2011, 19:46

Помогите пожалуста сделать услование.

Необходим проверить переменную text если в ней есть символ ~ то сделать beep;

Сtrl · 28.03.2011, 20:35

Код:

for i:=1 to lenght(str) do
if str[i]='~' then 
begin
	beep(1000, 1000);
	break;
end;

celovec · 28.03.2011, 21:44

Возможно ли это сделать без цикла?

MyLastHit · 28.03.2011, 21:50

Чем через цикл не нравится?

Аватар · 28.03.2011, 21:50

Код:

if Pos('~',text)>0 then ...

Сtrl · 28.03.2011, 21:58

Цитата:

Сообщение от Аватар

Код:

if Pos('~',text)>0 then ...

Внутри Pos() есть цикл, так что это почти то же самое.

Аватар · 28.03.2011, 22:55

Цитата:

Внутри Pos() есть цикл, так что это почти то же самое.

Всё верно, только он немного другими средствами организован

28.03.2011, 19:46	#1
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	Если в строке есть ~ то... Помогите пожалуста сделать услование. Необходим проверить переменную text если в ней есть символ ~ то сделать beep;

28.03.2011, 20:35	#2
Сtrl C++ Форумчанин Регистрация: 27.03.2011 Сообщений: 803	Код: `for i:=1 to lenght(str) do if str[i]='~' then begin beep(1000, 1000); break; end;` Ищете информацию по C++? cplusplus.com

28.03.2011, 21:50	#4
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Чем через цикл не нравится? Ненавижу быть как все, но люблю, чтобы все были как я.

28.03.2011, 21:50	#5
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `if Pos('~',text)>0 then ...` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
если запись в реестре уже есть	bymyny	Общие вопросы Delphi	1	28.10.2010 19:20
Условие, если есть лист.	agregator	Microsoft Office Excel	5	08.12.2009 07:46
Я-чайник (в excel) - у меня есть к Вам просьба, если есть желание и время - помогите.	rococococo	Microsoft Office Excel	0	04.10.2009 12:16
Подскажите есть ошибка ? (если да то где)	eyeofthedemon	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	19.09.2008 10:41
если есть.... то....	-=$V=-	Компоненты Delphi	2	17.06.2008 13:02

28.03.2011, 21:44	#3
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	Возможно ли это сделать без цикла?