delphi4arab منتديات دلفي للعرب

نسخة كاملة : بخصوص الدالة PosEx
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

لقد كنت ابحث في الانترنت عن طريقة استخراج نص بين كلمتين فوجدت كود يخص PosEx

حاولت اجربه على دلفي 2007 يقلي انه لم لم يتعرف على الدالة!!

هل احتاج الى مكتبة واين اجدها ؟ وشكرا Smile

PHP كود :
function ExtractText(const Str: string; const Delim1, Delim2: string): string;
var
  
pos1, pos2: integer;
begin
  result 
:= '';
  
pos1 := Pos(Delim1, Str);
  if 
pos1 > 0 then begin
    pos2 
:= PosEx(Delim2, Str, pos1+1);
    if 
pos2 > 0 then
      result 
:= Copy(Str, pos1 + 1, pos2 - pos1 - 1);
  
end;
end; 
و عليكم السلام و رحمة الله

أضف StrUtils إلى uses

بالتوفيق
[COLOR="DarkGreen"]وعليكم السلام
راجع المشاركات رقم 25 و 27 و 29 في هذه الصفحه فيهم الكفاية إن شاء الله
http://www.delphi4arab.net/forum/showthr...137&page=3
بالتوفيق[/COLOR]
جزاكما الله خيرا
لدي وظيفة مجربة على D6

PHP كود :
function PosEx(const SubStr, S: string; Offset: Integer = 1): Integer;
begin
  Result 
:= 0;
  if (
Offset < 1) or (Offset > Length(S)) then
    
Exit;
 
  
Result := Pos(SubStr, Copy(S, Offset, MaxInt));
  if 
Result > 0 then
    Inc
(Result, Offset - 1);
end; 

لا تنسى StrUtils إلى uses

بالتوفيق