مقایسه دو رشته متنی با استفاده از علامت های جایگرین - کدهای آماده دلفی

آن که به بلایى سخت دچار است چندان به دعا نیاز ندارد تا بى بلایى که بلایش در انتظار است . [نهج البلاغه]

کدهای آماده دلفی

پست الکترونیک

مقایسه دو رشته متنی با استفاده از علامت های جایگرین


با استفاده از این تابع شما می توانید دو رشته متنی را با هم مقایسه کنید البته با قابلیت استفاده از علامت های جایگزین * و ؟ جهت مقایسه دو رشته متنی

function MatchStrings(source, pattern: String): Boolean;
 var
   pSource: array [0..255] of Char;
   pPattern: array [0..255] of Char;

   function MatchPattern(element, pattern: PChar): Boolean;

     function IsPatternWild(pattern: PChar): Boolean;
     var
       t: Integer;
     begin
       Result := StrScan(pattern,"*") <> nil;
       if not Result then Result := StrScan(pattern,"?") <> nil;
     end;

   begin
     if 0 = StrComp(pattern,"*") then
       Result := True
     else if (element^ = Chr(0)) and (pattern^ <> Chr(0)) then
       Result := False
     else if element^ = Chr(0) then
       Result := True
     else begin
       case pattern^ of
       "*": if MatchPattern(element,@pattern[1]) then
              Result := True
            else
              Result := MatchPattern(@element[1],pattern);
       "?": Result := MatchPattern(@element[1],@pattern[1]);
       else
         if element^ = pattern^ then
           Result := MatchPattern(@element[1],@pattern[1])
         else
           Result := False;
       end;
     end;
   end;

 begin
   StrPCopy(pSource,source);
   StrPCopy(pPattern,pattern);
   Result := MatchPattern(pSource,pPattern);
 end;

محمد مقصودلو ::: سه شنبه 87/4/25::: ساعت 11:37 صبح

نظرات دیگران: نظر

لیست کل یادداشت های این وبلاگ

بهترین کامپوننت تاریخ شمسی در دلفی 7
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]

>> بازدیدهای وبلاگ <<

بازدید امروز: 47

بازدید دیروز: 42

کل بازدید :88522

>> درباره خودم <<

محمد مقصودلو
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم

>>تست سرعت تایپ<<

9 کلمه

Speed test

>> پیوندهای روزانه <<