+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بخصوص الدالة PosEx (/showthread.php?tid=3278)
بخصوص الدالة PosEx - Guest99 - 11-07-2011
السلام عليكم
لقد كنت ابحث في الانترنت عن طريقة استخراج نص بين كلمتين فوجدت كود يخص 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;
بخصوص الدالة PosEx - Lam.Abdeldjalil - 11-07-2011
و عليكم السلام و رحمة الله
أضف StrUtils إلى uses
بالتوفيق
بخصوص الدالة PosEx - ELARAPY - 11-07-2011
[COLOR="DarkGreen"]وعليكم السلام
راجع المشاركات رقم 25 و 27 و 29 في هذه الصفحه فيهم الكفاية إن شاء الله
http://www.delphi4arab.net/forum/showthread.php?tid=5137&page=3
بالتوفيق[/COLOR]
بخصوص الدالة PosEx - Guest99 - 12-07-2011
جزاكما الله خيرا
بخصوص الدالة PosEx - لؤي - 13-07-2011
لدي وظيفة مجربة على 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
بالتوفيق