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;