| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сравнение переменных [D6, XP]

DelphiKettle ©   (2007-08-04 18:09:00) 

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

---

{RASkov}   (2007-08-04 21:47:00) [1]

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

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

---

Инс   (2007-08-04 21:34:00) [2]

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;

:)

---

Zagaevskiy   (2007-08-04 21:09:00) [3]

> согласен

согласен

---

Alien1769   (2007-08-04 20:51:00) [4]

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

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

---

Zagaevskiy   (2007-08-04 20:34:00) [5]

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

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

---

Мануха   (2007-08-04 20:27:00) [6]

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

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

---

Zagaevskiy   (2007-08-04 20:19:00) [7]

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

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

---

Dib@zol   (2007-08-04 18:15:00) [8]

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

---

trubin   (2007-08-04 18:15:00) [9]

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

---

Наверх