كيف ابحث في سلسلة نصية عن نص مثلا

[DJAMELCOLLO]

كيف ابحث في سلسلة نصية عن نص مثلا
فكرتي هي برنامج شات وعندما يرسل الزبون رسالة نقوم بفحص الرسالة إذا كانت فيها كلمات خادشة للحياء ثم ترجع له رسالة تفيد بأنكلامه يحتوي كلام غير لائق **** كود يبحث عن كلمة في سلسلة نصية

[SMP3]

و عليكم السلام

PHP كود :

var a:string;
begin
a:='Text'; 
if a.Contains('word')then 
//do what u want ..
end; 


[ALmuhhnad]

السلام عليكم
الطريقة سهلاً
لنفرظ ان هذا النص الذي ادخل الزبون :

مرحباً , هي يوجد احد ؟ ... اريـد مساعـدة رجاء

وبعد ذلك نعمل هذا الكود :

PHP كود :

var
  sMessage,TempMessage : String;   // متغيرات الرسالة
  i,i2 : Integer;                  // متغيرات الحلقات
  IsBadMessage : Boolean;          // متغير يشير لوجود كلمة سيئة
const
  BadMessage : array[0..2] of string = ('رجاء','أريـد','اريـد'); // this is bad words
begin
  IsBadMessage := False;           // إعطاء المتغير قيمة False
  sMessage := 'مرحباً , هي يوجد احد ؟ ... اريـد مساعـدة رجاء'; // This is a Message
  if IsBadMessage = False then     // إذا كان المتغير الذي يشير غلى الرسالة يساوي Flase
  begin
    for i := 1 to Length(sMessage) do         //  حلقة من 1 إلى عدد احرف الرسالة
    begin
      TempMessage := Copy(sMessage,i,4);      // انسخ اربعة احرف من الرسالة وضعها في المتغير TempMessage
      for i2 := 0 to Length(BadMessage) do    // حلقة البحث عن الكلمات السئية
      begin
        if TempMessage = BadMessage[i2] then  // يتأكد من مطابقة الاحرف المنسوخة من الرسالة بأ الكلمات السئبة
          IsBadMessage := True                // يعطي صحيحه اي انه وجد كلمة سئة في الرسالة
      end;
    end;
  end;
  if IsBadMessage = False then
  begin
    for i := 1 to Length(sMessage) do
    begin
      TempMessage := Copy(sMessage,i,3);      // انسخ ثلاثة احرف من الرسالة وضعها في المتغير TempMessage
      for i2 := 0 to Length(BadMessage) do
      begin
        if TempMessage = BadMessage[i2] then
          IsBadMessage := True
      end;
    end;
  end;
end;