Сравнение переменных

← →
DelphiKettle © (2007-08-04 18:09) [0]

Здравствуйте! Помогите, пожалуйста, решить задачу. "Есть две строки s1 и s2. Нужно проверить, является одна из них частью другой".

← →
Dib@zol © (2007-08-04 18:15) [1]

if (pos(s1, s2)<>0)or(pos(s2, s1)<>0) then MessageBox(0, "УРРРРЯЯЯЯ!!!!", "", 0);

← →
trubin © (2007-08-04 18:15) [2]

if pos(s1, s2) > 0 then
//s1 часть строки s2
else
if pos(s2, s1) > 0 then
//s2 часть строки s1
else
//неудача

← →
Zagaevskiy © (2007-08-04 20:19) [3]

> Dib@zol © (04.08.07 18:15) [1]
> if (pos(s1, s2)<>0)or(pos(s2, s1)<>0) then MessageBox(0,
> "УРРРРЯЯЯЯ!!!!", "", 0);

У тебя всегда столько эмоций?

← →
Мануха (2007-08-04 20:27) [4]

> У тебя всегда столько эмоций?

может для него в радость помогать, да и нормально это :)

← →
Zagaevskiy © (2007-08-04 20:34) [5]

> Мануха (04.08.07 20:27) [4]
>
> > У тебя всегда столько эмоций?
>
> может для него в радость помогать, да и нормально это :)

Просто он везде пишет что-то вроде этого : "УРРЯЯ! ПРРААААВИЛЬНО!!!!!!"

← →
Alien1769 © (2007-08-04 20:51) [6]

> if (pos(s1, s2)<>0)or(pos(s2, s1)<>0) then MessageBox(0,
> "УРРРРЯЯЯЯ!!!!", "", 0);

"УРРРРЯЯЯЯ" да не всегда, согласен ?

> согласен

согласен

function FindStr(Str1, Str2: String): Boolean; var Text: String; begin Result:=false; Text:=Format("Здравствуйте! Помогите, пожалуйста, решить задачу. Есть две "+ " строки "%s" и "%s". Является одна из них частью другой?",[Str1, Str2]); if Application.MessageBox(PChar(Text),"Сравнение переменных",MB_YESNO or MB_ICONQUESTION) = mrYes then Result:=true; end;

:)

Сравнение переменных Найти похожие ветки