Скачать: CL | DM;

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

← →
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);

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

---

← →
Zagaevskiy ©   (2007-08-04 21:09) [7]

> согласен

согласен

---

← →
Инс ©   (2007-08-04 21:34) [8]

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;

:)

---

← →
{RASkov} ©   (2007-08-04 21:47) [9]

> [8] Инс ©   (04.08.07 21:34)
> function FindStr(Str1, Str2: String): Boolean;

Супер.... ИИ отдыхает )

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c