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

السلام عليكم
اريد طريقة تجزئة رابط موجود في edit1
مثلا هذا الرابط: http://salah123:25461/book/samir9/salah/5231.rar
واضع كل جزء في edit
مثلا:
edit2 تأخذ :http://salah123:25461
edit3 تأحذ:book
edit4 تأحذ Confused

amir9
edit5 تأحذ Confused

alah
edit3 تأحذ:5231.rar
وشكرا

وعليكم السلام ورحمة الله وبركاته
ابحث عن "/"
واستخدم دوال الCopy والPos وال Deleteللتعمامل مع الString

ممكن مثال لم استطع التطبيق

باستخدام memo مع button قمت بتجزئت الlink
اقوم بالبحث عن "/" ثم انسخ الى ان وجدت ال"/" ثم امسح من البداية الى ان اصل اليها ثم اكرر الى ان اصل الى نهاية الstring

كود :
var
  I: Integer;
  myString : string ;
begin
 myString := 'http://salah123:25461/book/samir9/salah/5231.rar';
 I := 0;
 while length(myString) > 0 do
 begin
   if (myString[I] = '/') and ( myString[I + 1] <> '/') and (myString[I - 1] <> '/') then
    begin
      Memo1.Lines.Add(Copy(myString, 0, I -1));
      Delete(myString, 1, I);
      I := 0;
    end;
    Inc(I);
 end;
end;

Stringlist. Create
SetDilimiter
SetDimilitedText

بارك الله فيك اخي justnick طريقة شغالة ربي يحفضك

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

salah07230

justnick

salah07230

justnick

Houdini

salah07230