بخصوص الدالة PosEx

[Guest99]

السلام عليكم

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

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

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

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; 


[Lam.Abdeldjalil]

و عليكم السلام و رحمة الله

أضف StrUtils إلى uses

بالتوفيق

[ELARAPY]

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

[Guest99]

جزاكما الله خيرا

[لؤي]

لدي وظيفة مجربة على 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

بالتوفيق